Enviar un correo electrónico utilizando el componente Jmail

Procédure

Cómo enviar un e-mail utilizando el componente Jmail

• ejemplo de código para enviar un e-mail utilizando el componente Jmail :

<%
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
%>

• ejemplo de código para enviar un e-mail utilizando el componente Jmail utilizando un servidor SMTP :

<%
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 
%>