envoi de mail avec Gmail

[jhlamoustache]

Bonjour le forum,

j'ai récupéré ce code. A la ligne cdo_msg.send j'ai un message d'erreur : "Le transport a échoué dans sa connexion au serveur." Quelqu'un sait-il pourquoi ?
J'ai pris soin d'indiquer des adresses, user, mdp valides. Et la bibliothèque CDO WINDOWS FOR 2000 est bien cochée.

Sub EnvoiMail()
'Add the Project Reference Microsoft CDO WINDOWS FOR 2000
Dim cdo_msg As New CDO.Message

'configuration message
cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
cdo_msg.Configuration.Fields(cdoSendUserName) = "toto@gmail.com"
cdo_msg.Configuration.Fields(cdoSendPassword) = "tagada.tsoin-tsoin"
cdo_msg.Configuration.Fields.Update

'remplissage et envoi message
cdo_msg.To = "mon.dest@bbox.fr"
cdo_msg.From = "toto@gmail.com"
cdo_msg.Subject = "Test "
cdo_msg.TextBody = "Coucou"
' cdo_msg.AddAttachment ("C:\Users\nnnnnn\Documents\classeur1.xls")

cdo_msg.Send

'libération objet message
Set cdo_msg = Nothing
End Sub

 

[STephane]

Bonjour

Regarde ce qui a été proposé dans la dernière réponse de ce billet (sur developpez.com).

STéphane

 

[jhlamoustache]

Bonjour Stéphane,

Merci d'avoir regardé.

J'ai un message d'erreur : la configuration de Sendusing est non valide. J'ai lu dans d'autres forum que je pouvais avoir un problème de proxy, vu que je suis au boulot en réseau.

 

[Hasco]

bonjour,

Quand on donne tous les éléments tout de suite, les pistes de recherche se restreignent et on peut avoir une piste plus rapidement.
Donc si c'est au boulot avec un proxy il faudra l'adresse du proxy et son port. Pas certain que vous l'obteniez...
Ensuite compléter la config CDO:

.Item("") = "URL_PROXY"
.Item("") = 8080

Bon après-midi

 

[jhlamoustache]

Bonjour Roblochon, merci.

Ce que j'ai oublié, c'est qu'en définitive, la personne qui utilisera n'est pas en réseau. Mais comme je teste depuis le boulot, cela pouvait peut-être expliquer l'échec ?

 

[Hasco]

Re,

Si votre réseau d'entreprise passe par un proxy, ce qui je l'espère est le cas, alors c'est certainement ça qui coince...

Testez chez vous, vous ne serez pas payé mais cela sera plus efficace.

A bientôt