Discussion :

[SfJ5Rpw8]

Bonsoir, pour inaugurer ce nouveau sous-forum , j'aurai besoin de votre aide pour "tester" ce code adapter de la VB

Q : Comment envoyer un mail en utilisant CDO...(SMTP)

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
 
Dim oCDO
 
Set oCDO = CreateObject("CDO.Message")
With oCdo
   With .Configuration.Fields ' Configuration "du compte mail SMTP"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tele2.fr"
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "587"
 
     '----- Dans le cas ou le serveur de mail (comme le mien) demande une authentification 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "eu20012007"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MonMotdePasse"
     '----------------
     .Update
End With
  .From = "bbil@gmail.com"
  .to = "bbil@gmail.com"
  .Subject ="Essai de mail" & Now
  .TextBody ="Voici un petit message " & vbCrlf & "pour tester l'envoi de mail par CDO/VBScript"
  .Send
End With

commencer par adapter la première partie du code à votre configuration de mail ... dans mon cas .. tele2.. me réclame une authentification ...par login mot de passe et l'utilisation du port 587 habituellement le port c'est 25 si vous n'avez pas besoin d'authentification modifiez les lignes ...:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
(...)
With oCdo
   With .Configuration.Fields ' Configuration "du compte mail SMTP"
     .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") = "25"
     .Update
End With
  .From = "bbil@wanadoo.fr"
  (...)

d'avance pour vos commentaires...

[mortalino]

Salut bbil,

beh j'ai voulu tester cela, mais j'éprouve une difficulté, j'ai eu une erreur (ligne surlignée : .Send), et j'ai le message suivant : Le transport a échoué dans sa connexion au serveur.

J'utilise GMail, et j'ai paramétré comme suit :

Code vb :

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
Dim oCDO
 
Set oCDO = CreateObject("CDO.Message")
With oCDO
   With .Configuration.Fields ' Configuration "du compte mail SMTP"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "587"
 
     '----- Dans le cas ou le serveur de mail (comme le mien) demande une authentification
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mortalino@gmail.com"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Mot De Passe"
     '----------------
     .Update
    End With
  .From = "mortalino@gmail.com"
  .to = "mortalino.nicolas@laposte.net"
  .Subject = "Essai de mail" & Now
  .TextBody = "Voici un petit message " & vbCrLf & "pour tester l'envoi de mail par CDO/VBScript"
  .Send
End With

J'ai même tenté de modifier le port du serveur smtp, de 587 à 465, mais rien n'y fait.

Aurais-tu une idée ?
Merci,
@++

[SfJ5Rpw8]

Pour Gmail à priori il faudrai le port 465 ... et "une connexion ssl sécurisé"..

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") ="true"

PS: mortalino , juste une question tu utilise quel client mail habituellement..?

[mortalino]

Salut bbil,

en fait je n'utilise aucun client mail, je vais directement dessus (gmail.com + laposte.net).

C'est pour ça que j'ai pas besoin d'un logiciel qui me récupère tous mes mails, j'ai vite fait de les trier moi même.

Sinon, pour en revenir à ton code proposé, même avec la ligne supplémentaire, (et changement de port), j'ai toujours la même erreur.
Dommage, ça me semble très utile.
Pour infos, je suis au travail, donc pas vb6, j'ai placé ton code dans un module VBA-E, d'office 2003 sur XP sp1.

@++

[SfJ5Rpw8]

...
Sinon, pour en revenir à ton code proposé, même avec la ligne supplémentaire, (et changement de port), j'ai toujours la même erreur.
Dommage, ça me semble très utile.
Pour infos, je suis au travail, donc pas vb6, j'ai placé ton code dans un module VBA-E, d'office 2003 sur XP sp1....

le code proposé est du VBScript tu n'as pas besoin de VB6... sinon si "tu est au travail" cela dépend aussi de comment tu est connecté à l'internet ... .? tu passe surement à travers un proxy et c'est pas sur qu'il te laisse la voie libre....? avant de te battre avec ce code tu devrai voir si tu arrive à relever tes mails avec un client standard ... ( outlook...)

[MatMeuh]

j'ai le meme type derreur alors que pourtant, outlock marche... que anda ?