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
|
alert("début smtp");
var objEmail = new ActiveXObject("CDO.Message");
objEmail.From = "...@...";
objEmail.To = "...@...";
objEmail.Cc = "...@...";
objEmail.Subject = WObjet; // "HELLO WORLD";
WCorps = "### EMAIL DE TEST ###" + 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;
WCorps = WCorps + "01_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + G_CrLf;
WCorps = WCorps + "02_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + G_CrLf;
WCorps = WCorps + "03_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + G_CrLf;
WCorps = WCorps + "04_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + G_CrLf;
WCorps = WCorps + "05_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + G_CrLf;
WCorps = WCorps + "06_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + G_CrLf;
WCorps = WCorps + "07_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + G_CrLf;
WCorps = WCorps + "08_NOM_FICHIER_AVEC_ESPACE_129 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" + 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") = "serveursmtp";
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
objEmail.Configuration.Fields.Update();
objEmail.Send();
alert("fin smtp"); |