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 |
