| <%
' Initialisation de l'objet JMAIL
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Adresse du serveur SMTP
'Le serveur smtp est de type: mail.votredomaine.com
JMail.ServerAddress = "mail.a-a-hebergement.com:25"
' adresse de l'expéditeur
'IMPORTANT pour que le mail soit envoyé il faut que l'adresse de
l'expediteur existe et qu'elle soit sur notre serveur.
JMail.Sender = "depredurand@a-a-hebergement.com"
' sujet
JMail.Subject = "test de l'objet JMAIL"
' adresse des destinataires
JMail.AddRecipient "djnicofun@free.fr"
JMail.AddRecipient "djnicofun@free.fr"
'codage type html
JMail.ContentType = "text/html"
'définition du corp du
texte
Dim Ct
Ct="<html>"
ct=ct&"<body>"
Ct = ct&"<font face=arial size=2>envoi de texte avec JMAIL<br>"
Ct=ct&"</body>"
ct=ct&"</html>"
JMail.Body = ct
'Définition de l'importance
du message
JMail.Priority = 3
'Envoi du message
JMail.Execute
'destruction de l'objet JMAIL
set Jmail=nothing
%>
<%
="Le mail à bien été envoyé avec Jmail"
%>
|