Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Probleme pour envoi d'un mail depuis excel avec gmail

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



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
si quelqu'un pouvait m'aider

Merci d'avance

Chris
 

dysorthographie

XLDnaute Accro
merci...peut etre que d'autres personnes auront une solution...
Bonjour,
On c'est pas compris il n'est plus possible d'utiliser CDO pour envoyer des mails !

Il faut trouver un autre moyen comment outlook, thunderbird autres !

Je connais bien le processus d'envoi de mail via CDO m'a précédente réponse ne reflétait pas mon ignorance mais ce que j'ai lu à droite à gauche !

 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…