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 29 30 31 32 33 34 35 36 37
| <% Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.nomdedomaine.extension"
(ou bien JMail.ServerAddress = "IP_du_serveur_mail" )
nom du serveur SMTP pour envoyer les mails
JMail.Sender = "info@domaine.com"
adresse email de l'emetteur
JMail.SenderName = "Cybergraphik Hébergement"
nom de l'émetteur de l'email
JMail.ReplyTo="info@domaine.com"
adresse email pour la réponse
JMail.Subject = "sujet du mail envoyé"
objet du mail émis
JMail.AddRecipient "tata@tata.com"
adresse email du destinataire
JMail.Body = "envoi d'un mail blablabla"
contenu du mail
JMail.Priority = 1
Priorité de l'envoi : 1, 2 ou 3
On Error Resume Next
JMail.Execute
If Err <> 0 Then
Response.Write "Erreur : " & Err.Description
else
Response.Write "Message envoyé"
End If
Set Jmail=nothing
%> |
Partager