Exemples de courriers d'envoi Jmail, modulables et rappelables à tout moment

Auteur：Eve Cole Date de mise à jour：2009-06-23 16:40:48

Un processus d'envoi de lettres à l'aide de jmail et comment l'utiliser.
Lors de l'envoi d'une lettre, appelez simplement ce processus directement.

<%
dim str,HtmlCorps
HtmlBody= "<html><body bgcolor='red' topmargin='40'><p align='center'>J'aime 2Yup !</p></html>"
str=JmailSend( "bonjour" , "ILoveYou" , true ,HtmlBody, "[email protected]" , [email protected] ,

"bonjour" , "smtp.sina.com.cn" , "bonjour" , "Mot de passe " )

si str= "Y" alors
réponse.write (" envoyé avec succès " )
autre
réponse . write ( " L'envoi a échoué ! Veuillez réessayer ! " )
finir si
'================================================== =
'Nom de la fonction : JmailSend
'Fonction : Envoyer des emails via Jmail
'Paramètre : Titre de l'e-mail du sujet
'Contenu du corps de l'e-mail
'Contenu du corps de l'e-mail
' isHtml S'il faut envoyer des e-mails au format HTML ( true )
'HtmlBodyContenu de l'e-mail au format HTML
'MailTo destinataire E-mail
'De l'e-mail de l'expéditeur
'FromName nom de l'expéditeur
' Serveur SMTP
'Nom d'utilisateur email nom d'utilisateur
' Mot de passe email mot de passe
'Valeur de retour : JmailSend= "N" Échec de l'envoi JmailSend= "Y" Envoyé avec succès
'~~~~~~~~~~suercool~~~~~

'================================================== =

fonction JmailSend (Sujet, Corps, isHtml, HtmlBody, MailTo, From, FromName, Smtp, Nom d'utilisateur, Mot de passe)
dim JmailMsg
set JmailMsg= server . createobject ( "jmail.message" )
JmailMsg.mailserverusername=Nom d'utilisateur
JmailMsg.mailserverpassword=Mot de passe

JmailMsg.addrecipient MailTo
JmailMsg.from=De
JmailMsg.fromname=FromName

Jeu de caractères JmailMsg = "gb2312"
JmailMsg.logging= vrai
JmailMsg.silent= vrai

JmailMsg.subject=Sujet
JmailMsg.body=Corps
si isHtml= true alors JmailMsg.htmlbody=HtmlBody

sinon JmailMsg.send (Smtp) alors
JmailEnvoie= "N"
autre
JmailEnvoyer= "Y"
finir si
JmailMsg fermer .
définir JmailMsg= rien
fonction de fin
%>