Bonjour j'essai d'envoyer des mails via un script VB comme suit:
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
27
28
 
'<<<<<<<<<Envoi depuis un serveur Internet>>>>>>>>>
 
Set objMail = CreateObject("CDO.Message") 
 
objMail.Subject = "Objet"
objMail.Sender = "monmail@gmail.com"
objMail.To = "monmail@gmail.com"
objMail.TextBody = "message"
 
'Nom du serveur SMTP 
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
'Le user ID de votre compte
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monmail"
 
'Le password de votre compte
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "monmotdepasse"
 
'Port Server (habituellement 25)
'objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'utliser sécurité SSL pour la connection
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
 
objMail.Send
Mais j'ai l'erreur suivante: The "SendUsing" configuration value is invalid.
Est-ce que qq a une idée ?