Bonjour j'essai d'envoyer des mails via un script VB comme suit:
Mais j'ai l'erreur suivante: The "SendUsing" configuration value is invalid.
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
Est-ce que qq a une idée ?
Partager