Il y a quelque temps, j'ai envoyé un simple code email JMAIL. Aujourd'hui, je vais faire un commentaire spécifique sur ce code, ajouter deux autres codes de format et donner quelques exemples simples :
Le premier est le code principal de jmail.smtpmail :
<%
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Créer un objet JMAIL
jmail.silent = true 'JMAIL ne générera pas d'erreurs d'exception et les valeurs renvoyées sont FALSE et TRUE
jmail.logging = true 'Activer les journaux d'utilisation
jmail.Charset = "GB2312" 'Le code du texte de l'e-mail est en chinois simplifié
jmail.ContentType = "text/html" 'Le format de l'email est HTML
jmail.ServerAddress = "Adresse du serveur" 'Le serveur qui envoie les emails
jmail.AddRecipient Email 'Le destinataire de l'e-mail
jmail.SenderName = "SenderName" 'Le nom de l'expéditeur de l'e-mail
jmail.Sender = "Adresse email" 'L'adresse email de l'expéditeur de l'e-mail
jmail.Priority = 1 'Programme d'urgence par courrier électronique, 1 est le plus rapide, 5 est le plus lent, 3 est la valeur par défaut
jmail.Subject = "Mail Subject" 'Le titre de l'e-mail
jmail.Body = "Mail Body" 'Le contenu de l'email
jmail.AddRecipientBCC Email 'L'adresse du destinataire aveugle de l'e-mail
jmail.AddRecipientCC Email 'L'adresse de la personne qui copie l'e-mail
jmail.Execute() 'Exécuter l'envoi d'e-mail
jmail.Close 'Ferme l'objet mail
%>
Le composant w3 Jmail4.3 a repensé sa structure interne - en utilisant l'objet Message au lieu de l'objet unique d'origine Jmail.smtpmail pour envoyer des e-mails. Certaines méthodes nécessitent une authentification (telle que 163, Yahoo, etc.), ce qui peut être résolu par le. méthode suivante :
<%
Set jmail = Server.CreateObject("JMAIL.Message") 'Créer un objet pour l'envoi d'e-mails
jmail.silent = true 'Protéger les erreurs d'exception et renvoyer les valeurs FALSE et TRUE j
mail.logging = true 'Activer la journalisation du courrier
jmail.Charset = "GB2312" 'L'encodage du texte de l'email est la norme nationale
jmail.ContentType = "text/html" 'Le format de l'email est au format HTML
jmail.AddRecipient Email 'Adresse du destinataire de l'e-mail
jmail.From = "E-mail de l'expéditeur" 'Adresse E-MAIL de l'expéditeur
jmail.MailServerUserName = "UserName of Email" 'Nom d'utilisateur requis pour se connecter au serveur de messagerie
jmail.MailServerPassword = "Mot de passe de l'e-mail" 'Mot de passe requis pour se connecter au serveur de messagerie
jmail.Subject = "Mail Subject" 'Le titre de l'e-mail
jmail.Body = "Mail Body" 'Le contenu de l'email
jmail.Prority = 1 'Programme d'urgence par courrier électronique, 1 est le plus rapide, 5 est le plus lent, 3 est la valeur par défaut
jmail.Send("Server Address") 'Effectuer l'envoi d'e-mails (via l'adresse du serveur de messagerie)
jmail.Close() 'Ferme l'objet
%>
Parlons de la façon d'envoyer des messages à l'aide du composant CDONTS de Microsoft :
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") 'Créer un objet mail
cdomail.Subject = "Objet du mail" 'Titre du mail
cdomail.From = "Courrier de l'expéditeur" 'Adresse de l'expéditeur
cdomail.To = "E-mail provenant de" 'Adresse du destinataire
cdomail.Body = "Mail Body" 'Le contenu de l'email
cdomail.Send 'Exécuter l'envoi
%>
Cette méthode est la plus simple pour envoyer des emails, mais elle pose aussi certains problèmes, c'est-à-dire que peu de serveurs ouvriront ce service !
Lorsque nous écrivons des programmes, nous disons généralement que le code doit être modularisé, afin de faciliter la maintenance et le portage. Par conséquent, j'écrirai ici cet e-mail sous forme de sous-programme, qui peut être appelé directement lors de l'appel (bien sûr, si vous êtes heureux de l'écrire sous forme de fonction, c'est également possible, cela dépend principalement de votre intérêt personnel) :
<%
'Description du paramètre
'Objet : Titre de l'e-mail
'MailAddress : L'adresse du serveur d'envoi, tel que smtp.163.com
'E-mail : Adresse e-mail du destinataire
'Expéditeur : Nom de l'expéditeur
'Contenu : Contenu de l'e-mail
'Fromer : adresse e-mail de l'expéditeur
Sub SendAction (sujet, adresse e-mail, e-mail, expéditeur, contenu, expéditeur)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Créer un objet JMAIL
jmail.silent = true 'JMAIL ne générera pas d'erreurs d'exception et les valeurs renvoyées sont FALSE et TRUE
jmail.logging = true 'Activer les journaux d'utilisation
jmail.Charset = "GB2312" 'Le code du texte de l'e-mail est en chinois simplifié
jmail.ContentType = "text/html" 'Le format de l'email est HTML
jmail.ServerAddress = mailaddress 'Le serveur qui envoie le courrier
jmail.AddRecipient Email 'Le destinataire de l'e-mail
jmail.SenderName = sender 'Le nom de l'expéditeur de l'e-mail
jmail.Sender = fromer 'L'adresse e-mail de l'expéditeur de l'e-mail
jmail.Priority = 1 'Programme d'urgence par courrier électronique, 1 est le plus rapide, 5 est le plus lent, 3 est la valeur par défaut
jmail.Subject = subject 'Le titre de l'email
jmail.Body = content 'Le contenu de l'email
« Puisque BCC et CC ne sont pas utilisés, ces deux phrases sont bloquées ici. Si vous en avez besoin, vous pouvez les restaurer ici.
'jmail.AddRecipientBCC Email 'L'adresse du destinataire aveugle de l'e-mail
'jmail.AddRecipientCC Email 'L'adresse de l'e-mail en copie carbone
jmail.Execute() 'Exécuter l'envoi d'e-mail
jmail.Close 'Ferme l'objet mail
Fin du sous-marin
'Exemple d'appel de ce Sub
Dim strSubject, strEmail, strMailAdress, strSender, strContent, strFromer
strSubject = "Ceci est un email de test envoyé via JMAIL"
strContent = "Le composant JMail a envoyé le test avec succès !"
strEmail = " [email protected] "
strFromer = " [email protected] "
strMailAddress = "mail.ubbcn.com"
Appeler SendAction (strSubject, strMailaddress, strEmail, strSender, strContent, strFromer)
%>
Ce qui précède est mon avis approximatif sur le code d'envoi d'emails. Je tiens à vous remercier pour vos conseils !