Envoi de Mail CDO avec Proxy
Bonjour,
Je souhaiterais envoyer des mails automatiquement depuis ma boite de messagerie professionnelle
En cherchant dans divers forums, j'ai réussi à trouver le code correspondant avec CDO.
Malheureusement, j'ai un message d'erreur qui s'affiche à chaque fois :
"Erreur d'exécution '-2147220973 (80040213)'
Le transport a échoué dans sa connexion au serveur"
Je ne sais pas si le problème vient de là, mais je ne sais pas quelle syntaxe je dois utiliser pour renseigner l'IP du proxy
L'un ou l'une de vous pourrait il m'aider SVP?
Code:
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
| Sub EnvoiMailCDO()
Set CDOmail = CreateObject("CDO.Message")
With CDOmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "http://xx.xx.xx.xx"
.Item("http://schemas.microsoft.com/cdo/configuration/proxyserverport") = 8080
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxx@xxxxxx.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
.Update
End With
With CDOmail
.To = "xxxxxxx@xxxxxx.com"""
.From = "xxxxxxx@xxxxxx.com"""
.Subject = "HOURRA...j'ai réussi!!!"
.TextBody = "ça fonctionne"
.Send
End With
Set CDOmail = Nothing
End Sub |
PS : soyez indulgent SVP, je suis débutante et c'est la première fois que je demande de l'aide dans les différents forums...
Et vous constaterez pour pour ma première fois, j'ai choisi les meilleurs!:D
