Sous iis7 et 8 (2008 serveur et +) il faut utiliser CDO.message :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
<% Set myMail=CreateObject("CDO.Message") myMail.Subject="Test email with CDO" myMail.From="votre_email" myMail.To="email_destinataire" myMail.TextBody="This is a message." myMail.HtmlBody="<p>This is a message.</p>" ' méthode pour envoyer de notre serveur de relais ou de celui de votre choix myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ' myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.rd-andorre.net" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 ' ---------------------- ' méthode la plus judicieuse, si serveur de relais down on ne perd pas les envois, ça reste stocké jusqu'à ce que le serveur de relais soit de nouveau opérationnel myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=1 myMail.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" ' ---------------------- myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %> |
» Quelques fonctions utiles sous CDO :
|
|
<% myMail.CC = "email1@email.com" ' liste des destinataires en CarbonCopy myMail.BCC = "email1@email.com" ' liste des destinataires en BlindCarbonCopy myMail.ReplyTo = "email@email.com" ' adresse de réponse si différente de l'expéditeur myMail.AddAttachement("C://chemin/fichier") ' envoyer un fichier joint %> |
|
|
<% ' SMTP authentication myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="postmaster@mydomain.com" myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password" %> |
Sous 2000 serveur, utilisez CDONTS (obsolète) :
|
|
<% Dim CD: set CD = server.CreateObject("CDONTS.NewMail") CD.From = "expediteur_mail" CD.To = "recipient" CD.Subject = "exp_sujet" CD.Body = "texte" CD.Send Set CD = nothing %> |
» Quelques fonctions utiles sous CDONTS :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
<% CD.Importance = 0 ' importance : 0 = normal, 1 = urgent, 2 = tres urgent ' CD.AttachFile "\\repertoire\fichier.jpg","fichier.jpg" ' le chemin du fichier qui sera attache (chemin absolu, nom du fichier) ' CD.Cc = "email1@email.com, email2@email.com" ' liste des destinataires en CarbonCopy, separes par une virgule ' CD.BCc = "email1@email.com, email2@email.com" ' liste des destinataires en BlindCarbonCopy (Copie cachee invisible), separes par une virgule ' CD.BodyFormat = 0 CD.MailFormat = 0 ' Pour envoyer un mail au format HTML, ajouter les 2 lignes precedentes. ' ' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes ' %> |
