Discussion :

[Daniel.C]

Bonjour à tous,

J'ai un problème pour envoyer des messages avec CDO en utilisant mon compte GMail. J'utilise le code suivant :

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
Sub CDO2()
Dim Adresse As String, MDP As String, Desti As String
Adresse = "xxx@gmail.com" '*** mon adresse mail - à modifier
MDP = "xxx" '*** mon mot de passe GMail - à modifier
Desti = "xxx@xxx.com" '*** adresse du destinataire - à modifier
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Adresse
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = MDP
.Update
End With
' build email parts
With cdomsg
.To = Desti
.From = "mygmail@gmail.com"
.Subject = "the email subject"
.TextBody = "the full message body goes here. you may want to create a variable to hold the text"
.Send
End With
    Set cdomsg = Nothing
End Sub

qui me donne l'erreur :
Erreur d'exécution '-2147220973 (80040213)':
Le transport a échoué dans sa connexion au serveur.

L'erreur semble liée à une spécificité GMail (j'arrive à envoyer un message via CDO et Free.

Merci d'avance.

[casefayere]

Bonsoir Daniel,
sans garantie, je viens de lire

Port SMTP Gmail: 25 ou 465

donc si c'est ça, peut-être changer cette ligne

Code :

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

.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587

en mettant le bon chiffre, je répète, sous réserve !!!

[casefayere]

ou ce lien qui aidera peut-être si tu ne le connais pashttps://support.google.com/mail/answer/13273

[Daniel.C]

@casefayere :

Non, même erreur
Je vais regarder le lien.
Merci.

[cerede2000]

As tu chercher sur le forum......
http://www.developpez.net/forums/d14...t/#post7968025

[Invité]

Bonjour,
Merci cerede2000 pour ce lien!

Il faut configurer cdo exactement comme ton client mail.

Je l'utilise depuis 15 ans déjà et il me rends encore service aujourd'hui.
Je l'utilise au travail pour envoyer de mail via gemail@entrepise. Com et mon Gmail perso sen problème.

De mémoire l'exemple que je fournir est justement configuré en gmail.

Si tu as d problème regarde ton client smtp, et je te donnerai un coup de pousse si besoin!

Ceci dit sur Google c'est un peut le bordel pour trouver mais il y a toutes les informations.

J'avais poste le lien sur le forum mais si je le retrouve je te le poste.

[cerede2000]

@rdurupt : Yes ! Ton exemple est Gmail c'est pour cela que je l'ai mis

[Daniel.C]

As tu chercher sur le forum......
http://www.developpez.net/forums/d14...t/#post7968025

Bonjour et merci. Oui on trouve une littérature abondante sur CDO. J'arrive à le faire fonctionner avec mon compte Free. C'est GMail qui me pose problème.Apparemment, je passe à côté de quelque chose.

@rdurupt : Yes ! Ton exemple est Gmail c'est pour cela que je l'ai mis

Plus exactement, c'est GoogleMail, il y a quelques différences.

Bonjour,
Merci cerede2000 pour ce lien!

Il faut configurer cdo exactement comme ton client mail.

Je l'utilise depuis 15 ans déjà et il me rends encore service aujourd'hui.
Je l'utilise au travail pour envoyer de mail via gemail@entrepise. Com et mon Gmail perso sen problème.

De mémoire l'exemple que je fournir est justement configuré en gmail.

Si tu as d problème regarde ton client smtp, et je te donnerai un coup de pousse si besoin!

Ceci dit sur Google c'est un peut le bordel pour trouver mais il y a toutes les informations.

J'avais poste le lien sur le forum mais si je le retrouve je te le poste.

Merci. Le pire, c'est que j'ai repris les paramètres de mon compte GMail défini dans Outlook :
smtp.gmail.com, port 587...

[Invité]

https://support.google.com/a/answer/176600?hl=fr

[patricktoulon]

bonsoir
avec CDO je le redirais jamais assez !! si tu a des soucis avec gmail utilise ton serveur Smtp de ton FAI en laissant l'adresse mail émetteur truc@gmail.machin
tu meme mettre n'importe quoi comme adresse émetteur du genre bidule@ machin.com ca fonctionne quand même

sa fonctionne très bien et sans MDP ou login même

[eriiic]

Bonjour,

J'ai eu des difficultés aussi avec gmail, ce que j'avais noté à l'époque :

CDO ne reconnait pas le TLS, mais gmail travaille également en SSL sur le port 465.
serveur smtp : SMTP.gmail.com
smtpserverport = 465
et ajouter :
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

Tu devrais insister avec SSL port 465 (587 c'est pour gmail en TLS sur certaines de leurs doc)
eric

[cerede2000]

@Patricktoulon : Attention c'est de moins en moins le cas....
A cause du spam, des machines zombie..... Les SMTP requièrent maintenant un passage par le port 465 ou 587 avec authentification pour éviter que n'importe quoi balance des mails n'importe ou à n'importe qui.
Certes il reste quelques SMTP qui fonctionnent en port 25 et qui ne demande de d'authentification mais ils sont de plus en plus rares et bien souvent limités au niveau des domaines qu'il acceptent.

[Invité]

Bonjour,
Pour abondé dans le sans de cerede2000, de plus en plus les hébergeurs passe en ipV6,même pour le port 25,

Free par exemple, ce qui veut dire qu'il est possible se ce connecter via cdo par l'intermédiaire de sa box au serveur smtp de free sens login pass Word en port 25,mais il faut s'authentifier a l'extérieur d son domicile même pour le port 25!

Il faut agir via internet sur le paramètre de sont compte pour faire sauter ipV6!

C'est également pour cela que dans la méthode que je propose , de mémoire je fait le distinguo enter authentification et SSL!

[Daniel.C]

bonsoir
avec CDO je le redirais jamais assez !! si tu a des soucis avec gmail utilise ton serveur Smtp de ton FAI en laissant l'adresse mail émetteur truc@gmail.machin
tu meme mettre n'importe quoi comme adresse émetteur du genre bidule@ machin.com ca fonctionne quand même

sa fonctionne très bien et sans MDP ou login même

Bonjour Patrick,

Parfaitement d'accord avec toi. Seulement, je mets au point un code pour une personne qui n'a qu'un compte GMail.

Merci de ta réponse.

Bonjour,

J'ai eu des difficultés aussi avec gmail, ce que j'avais noté à l'époque :

Tu devrais insister avec SSL port 465 (587 c'est pour gmail en TLS sur certaines de leurs doc)
eric

Bonjour

Ca ne fonctionne pas mieux avec le port 465...
Désespérant.

Bonjour le forum,

Voici ce que j'ai comme configuration dans OutLook (et qui fonctionne) :

[cerede2000]

Pas besoin de flooder.....
Édites ton message précédent pour rajouter des informations !

Edit : Je viens de tester avec mon compte Gmail ce code :

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
Public Function send_email()
 
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mygmail@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
.Update
End With
' build email parts
With cdomsg
.To = "somebody@somedomain.com"
.From = "mygmail@gmail.com"
.Subject = "the email subject"
.TextBody = "the full message body goes here. you may want to create a variable to hold the text"
.Send
End With
    Set cdomsg = Nothing
End Function

Mon mail est parfaitement parti et bien arrivé

[Invité]

Bonjour,

Code Mon Exemple :

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

1
2
3
Sub test() 'Effectivement je ne gère pas le SSL mais ça pose un problème c'est pour le port 25 en IpV6!
 MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", ""
End Sub

[Daniel.C]

Pas besoin de flooder.....
Édites ton message précédent pour rajouter des informations !

Edit : Je viens de tester avec mon compte Gmail ce code :

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
Public Function send_email()
 
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mygmail@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
.Update
End With
' build email parts
With cdomsg
.To = "somebody@somedomain.com"
.From = "mygmail@gmail.com"
.Subject = "the email subject"
.TextBody = "the full message body goes here. you may want to create a variable to hold the text"
.Send
End With
    Set cdomsg = Nothing
End Function

Mon mail est parfaitement parti et bien arrivé

Ben oui, mais non. J'ai toujours le même message. Ca vient sans doute de mon FAI (Free) ?

@ rdurupt :

Ton code fonctionne (MailEnvoi) avec le port 465. Je vais chercher les différences avec le mien (plantage avec le même port).

Encore merci et merci à tous les contributeurs.

[cerede2000]

????????
Car tu n'avais pas encore essayé le code du topic que j'ai indiqué hier ?

[Invité]

Ben oui, mais non. J'ai toujours le même message. Ca vient sans doute de mon FAI (Free) ?

je vient de lire à l'instant un message d'un internaute qui explique qu'il n'arrive pas a configurer son mail à laposte.net sur Outlook! il est chez free également , il semblerait que pour éviter le phénomène de spam, la freebox appropriation le port! il semble qu'il existe un parade, mais comme les imprime écran sont orienté Outlook et aue visiblement ça marche chez toi, le problème pourrais venir de coup de tournevis à ajouter sur la configuration CDO et là j'ai rien trouvé, mais il n'y à pas de raison de ne pas trouver un palliatif!

Edit: Idem

????????
Car tu n'avais pas encore essayé le code du topic que j'ai indiqué hier ?

Ton code fonctionne (MailEnvoi) avec le port 465.

Google le dit dans un tuto plus vieux ,qu'i faut parfois tâtonner sur les paramètres!

perso j'ai longtemps ramé avant d'envoyer un mail et chaque fois que je changeai de serveur les rames ,le palmes et le seau pour écopé n'étaient pas loin!

sur un smtp.free je n’arrivai pas et mon pote trouvais que ça fonctionnait à merveille sur le port 25 alors que le port 25 me jetait

[patricktoulon]

Bonjour Daniel C

Bonjour Patrick,

Parfaitement d'accord avec toi. Seulement, je mets au point un code pour une personne qui n'a qu'un compte GMail.

Merci de ta réponse.

et alors ???? il est ou le soucis ???? comme je te l'ai dis si tu utilise le smtp du FAI sur le quel l'ordi est connecté tu peut mettre n'importe quoi comme adresse d'émetteur a condition qu'elle soit cohérente truc @ machin .com ou.fr y compris les adresse gmail

si tu ne connais pas ton smtp de ton FAI ou que tu veux que cela soit dynamique j'avais posté un exemple avec libelule qui trouve le nom du serveur smtp dynamiquement
je vais essayer de le retrouver dans mes archives