Odeslání e-mailu pomocí komponenty Jmail

Procédure

Jak odeslat e-mail pomocí komponenty Jmail

• příklad kódu pro odeslání e-mailu pomocí komponenty 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
%>

• příklad kódu pro odeslání e-mailu pomocí komponenty Jmail s využitím serveru 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 
%>