Bonjour,

Je cherche à envoyer un mail via la référence "CDO.CONFIGURATION" et "CreateObject("CDO.Message")"
J'ai récupéré plusieurs exemples sur le net et à chaque fois j'ai le même message d'erreur quand j'exécute l'instruction :
.From = "senderName"

Le messages est :
"Erreur d'exécution '-2146644475 (800cce05)':
"La partie demandée n' pas été trouvée dans ce message"

Quelque soit le paramètrage que j'affecte, j'ai toujours ce message d'erreur
J'ai pourtant bien activé la réf. "Microsoft CDO for windows 2000 library" mais rien n'y fait

Je suis sous pack office 2010 et windows 8.1 pro
Merci de votre aide
YB


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 essai_envoi_mail()
'
Dim MsSchm$, Cd0Conf As Object, CdoMsg As Object
MsSchm$ = "http://schemas.microsoft.com/cdo/configuration/"
Set Cd0Conf = CreateObject("CDO.Configuration")
With Cd0Conf.Fields
.Item(MsSchm$ & "smtpauthenticate") = 1
.Item(MsSchm$ & "smtpusessl") = True
.Item(MsSchm$ & "smtpserver") = "smtp.gmail.com"
.Item(MsSchm$ & "sendusername") = "senderName@gmail.com"
.Item(MsSchm$ & "sendpassword") = "senderPassword"
.Item(MsSchm$ & "smtpserverport") = 465
.Item(MsSchm$ & "sendusing") = 2
.Item(MsSchm$ & "connectiontimeout") = 100
.Update
End With
Set CdoMsg = CreateObject("CDO.Message")
With CdoMsg
Set .Configuration = Cd0Conf
.From = "senderName"
.To = "recipient@yahoo.com"
.Subject = "This Test"
.TextBody = "Testing"
.Send
End With
End Sub