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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!