Envoyer un e-mail avec le composant Jmail


Sommaire

Procédure

Comment envoyer un e-mail avec le composant Jmail

  • exemple de code pour envoyer un mail en utilisant le composant 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
%>

 

  • exemple de code pour envoyer un mail en utilisant le composant Jmail en utilisant un serveur 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 
%>

Notez cet article

Vous avez noté 0 étoile(s)

Cet article a été lu 12834 fois.

comments powered by Disqus
Top