Bonjour,
le code suivant ne fonctionne pas.
J'ai fouillé sur différents forums et testé moultes codifications de paramètres, je ne trouve pas la bonne solution pour envoyer un mail via WANADOO.
J'obtiens une "erreur d'exécution -2147220973 le transport a échoué dans sa connexion au serveur".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37 ' Envoi du mail Set mConfig = CreateObject("CDO.Configuration") Set mChps = mConfig.Fields With mChps .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wanadoo.fr" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "587" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1" .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxx.wanadoo.fr" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "motdepasse" .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true" .Update End With Set mMessage = CreateObject("CDO.Message") With mMessage Set .Configuration = mConfig .To = MailDesti .CC = MailDest2 If MailCopie = "O" Then .BCC = ServeurUtil ' en copie cachée Else .BCC = "" ' pas de copie cachée End If .From = ServeurUtil .BodyPart.Charset = "iso-8859-1" .Subject = MailTitre .TextBody = MailCivil & vbCrLf & vbCrLf & _ MailText1 & vbCrLf & _ MailText2 & vbCrLf & _ MailText3 & vbCrLf & vbCrLf & _ MailSalut & vbCrLf & _ MailSigne .AddAttachment MailPiece .Send End With
Auparavant j'étais sur YAHOO : pas de souci. Tout fonctionnait super bien.
Avez-vous une idée de mon erreur ?
Meric
Cdt
Daniel
Partager