<%
sous Jmail (e-mail)
Faible JMail, SendMail
Définir JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "texte/html"
JMail.ServerAddress=Serveur SMTP
JMail.Sender=SystèmeEmail
JMail.Sujet=sujet
JMail.Body=mailbody
E-mail JMail.AddRecipient
JMail.Priority=3
JMail.Execute
Définir JMail = rien
si c'est une erreur, alors
SendMail=err.description
err.clear
autre
EnvoyerMail="OK"
finir si
fin du sous
-sous-Cdonts (e-mail)
obj objCDOMail
Définir objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To =email
objCDOMail.Sujet =sujet
objCDOMail.Body =mailbody
objCDOMail.Envoyer
Définir objCDOMail = Rien
si c'est une erreur, alors
SendMail=err.description
err.clear
autre
EnvoyerMail="OK"
finir si
fin du sous-
sous-aspemail(email)
Définir mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
destinataire = email
expéditeur = SystemEmail
sujet = sujet
message = corps du message
serveur de messagerie = serveur SMTP
result=mailer.SendMail(serveur de messagerie, destinataire, expéditeur, sujet, message)
si c'est une erreur, alors
SendMail=err.description
err.clear
autre
EnvoyerMail="OK"
finir si
fin du sous
%>