Send an e-mail using the Jmail component

Procédure

How to send an e-mail using the Jmail component

• example of code to send an e-mail using the Jmail component :

<%
z01 = " Nom : " & Request.Form("nom")
z02 = " Prnom : " & Request.Form("prenom")
z03 = " Email : " & Request.Form("email")

corps= z01 & vbCrLf & z02 & vbCrLf & z03

Set JMail = Server.CreateObject("JMail.Message")

JMail.From = "postmaster@domaine.com"
JMail.FromName = "Contact depuis le site domaine.com"
JMail.Subject = "Envoi d'un email depuis le composant Jmail"
JMail.AddRecipient ("MonAdresseEmail")
jmail.HTMLBody = corps
JMail.Body =corps

JMail.Send("mailler21.lws-hosting.com:26")

Set JMail=nothing
%>

• code example for sending an e-mail using the Jmail component using an SMTP server :

<%
z01 = " Nom : " & Request.Form("nom")
z02 = " Prnom : " & Request.Form("prenom")
z03 = " Email : " & Request.Form("email")

corps= z01 & vbCrLf & z02 & vbCrLf & z03

Set JMail = Server.CreateObject("JMail.Message")

JMail.From = "postmaster@domaine.com"
JMail.FromName = "Contact depuis le site domaine.com"
JMail.Subject = "Envoi d'un email depuis le composant Jmail"
JMail.AddRecipient ("MonAdresseEmail")
jmail.HTMLBody = corps
JMail.Body =corps

JMail.MailServerUserName = "monemail@mondomaine.com"
JMail.MailServerPassword = "MonMotDepasse"
JMail.Send("mail.mondomaine.com")

Set JMail=nothing 
%>