chris66000
XLDnaute Junior
Bonjour,
Malgré mes recherches sur tous les sites, je ne trouve pas de solution à mon problème.
Quand je veux envoyer un mail depuis Excel par Gmail, je reçois un message d'erreur
Le transport a échoué dans sa connexion au serveur
ci-joint mon code ou j'ai enlevé les adresses
si quelqu'un peux m'aider cela serait avec plaisir
Merci d'avance
si quelqu'un pouvait m'aider
Merci d'avance
Chris
Malgré mes recherches sur tous les sites, je ne trouve pas de solution à mon problème.
Quand je veux envoyer un mail depuis Excel par Gmail, je reçois un message d'erreur
Le transport a échoué dans sa connexion au serveur
ci-joint mon code ou j'ai enlevé les adresses
si quelqu'un peux m'aider cela serait avec plaisir
Merci d'avance
| Public Function envoi_mail() ' pour envoi controle 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") = 25 '465 '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") = "******" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********" .Update End With ' build email parts With cdomsg .To = "*****@gmail.com" .From = "****@gmail.com" .Subject = "essai de transmission" .TextBody = "BONJOUR" .Send End With Set cdomsg = Nothing End Function |
Merci d'avance
Chris