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
| Dim mailer, emailbody
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To = "Nom complet<identifiant@domaine>"
Mailer.Cc = "Nom complet<identifiant@domaine>"
Mailer.Bcc = "Nom complet<identifiant@domaine>"
Mailer.From = "Nom complet<identifiant@domaine>"
Mailer.Subject = emailsubject
' Pour envoyer un mail au format HTML, ajouter ces 2 lignes :
' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes
Mailer.BodyFormat = 0
Mailer.MailFormat = 0
' importance : 0 = normal, 1 = urgent, 2 = très urgent
Mailer.Importance = 2
Mailer.AttachFile "C:\CHEMIN FICHIER"
Mailer.Body = emailbody
if not Mailer.Send then
response.write ("Mail sent to " & mailto & "<br>")
else
response.write ("Mail non envoyé. Erreur : ") & Err.Description
end if
Set Mailer = Nothing |
Partager