Inviare un'e-mail utilizzando il componente Jmail

Procédure

Come inviare un'e-mail utilizzando il componente Jmail

• esempio di codice per inviare un'e-mail utilizzando il 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
%>

• esempio di codice per l'invio di un'e-mail con il componente Jmail utilizzando un server 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 
%>