samimi94
XLDnaute Occasionnel
Bonjour,
Me revoilà avec une nouvelle question assez tordue pour moi.
J'ai trouvé un bout de code sur le web qui permet d'envoyé une PJ par macro depuis une adresse gmail, cependant celle-ci ne fonctionne pas lorsque je suis sur un pc derrière un proxy (fonctionne très bien chez moi car pas de proxy).
Voici le code :
J'ai même essayé en intégrant les paramètres SMTP, le port ect mais ca ne fonctionne pas.
Si cela ne peut pas fonctionner derrière un proxy est-il possible de mettre un message à l'écran qui indiquerait que le message n'a pas été envoyé ?
Je n'ai rien trouvé sur le forum, ni même sur le web, sachant que j'ai pris le principe Gmail pour ne pas passer par un client de messagerie par défaut, ne sachant pas à l'avance si l'utilisateur a Outloock, Lotux, Exchange ...
Par avance merci à tous.
Samimi94.
Me revoilà avec une nouvelle question assez tordue pour moi.
J'ai trouvé un bout de code sur le web qui permet d'envoyé une PJ par macro depuis une adresse gmail, cependant celle-ci ne fonctionne pas lorsque je suis sur un pc derrière un proxy (fonctionne très bien chez moi car pas de proxy).
Voici le code :
Code:
Dim objMessage As CDO.Message
Set objMessage = CreateObject("CDO.Message")
With objMessage
.Subject = "Exemple envoi de fichier"
.From = "toto@gmail.com"
.To = "test@tutu.fr"
.TextBody = "Bonjour, "
.AddAttachment "c:\TEST\titi.xls"
.Send
End With
J'ai même essayé en intégrant les paramètres SMTP, le port ect mais ca ne fonctionne pas.
Si cela ne peut pas fonctionner derrière un proxy est-il possible de mettre un message à l'écran qui indiquerait que le message n'a pas été envoyé ?
Je n'ai rien trouvé sur le forum, ni même sur le web, sachant que j'ai pris le principe Gmail pour ne pas passer par un client de messagerie par défaut, ne sachant pas à l'avance si l'utilisateur a Outloock, Lotux, Exchange ...
Par avance merci à tous.
Samimi94.