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
|
var WSmtp = "smtp.gmail.com";
var WUser = "mon adresse Gmail";
var WMdp = "mon mot de passe Gmail";
var WPort = 465;
var objEmail = new ActiveXObject("CDO.Message");
objEmail.From = "adresse_exp";
objEmail.To = "adrsesse_dest";
objEmail.Cc = "";
objEmail.Subject = WObjet; // "HELLO WORLD";
WCorps = "### EMAIL DE TEST ### 21/10/2010 à 14:35" + G_CrLf;
WCorps = WCorps + "Expediteur = " + objEmail.From + G_CrLf;
WCorps = WCorps + "Destinataire = " + objEmail.To + G_CrLf;
WCorps = WCorps + "Copie = " + objEmail.Cc + G_CrLf;
WCorps = WCorps + "Sujet = " + objEmail.Subject + G_CrLf;
objEmail.Textbody = WCorps;
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = WSmtp;
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = WPort;
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true; //ou false;
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "0";
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60;
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = WUser;
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = WMdp;
objEmail.Configuration.Fields.Update();
objEmail.Send(); |
