Vor einiger Zeit habe ich einen einfachen JMAIL-E-Mail-Code gesendet. Heute werde ich einen spezifischen Kommentar zu diesem Code abgeben, zwei weitere Formatcodes hinzufügen und einige einfache Beispiele geben:
Der erste ist der Kerncode von jmail.smtpmail:
<%
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Erstelle ein JMAIL-Objekt
jmail.silent = true 'JMAIL löst keine Ausnahmefehler aus und die zurückgegebenen Werte sind FALSE und TRUE
jmail.logging = true 'Nutzungsprotokolle aktivieren
jmail.Charset = "GB2312" 'Der Code des E-Mail-Textes ist vereinfachtes Chinesisch
jmail.ContentType = "text/html" 'Das Format der E-Mail ist HTML
jmail.ServerAddress = "Serveradresse" 'Der Server, der E-Mails sendet
jmail.AddRecipient Email 'Der Empfänger der E-Mail
jmail.SenderName = "SenderName" 'Der Name des E-Mail-Absenders
jmail.Sender = "Email Address" 'Die E-Mail-Adresse des E-Mail-Absenders
jmail.Priority = 1 'E-Mail-Notfallprogramm, 1 ist das schnellste, 5 ist das langsamste, 3 ist der Standardwert
jmail.Subject = "Mail Subject" 'Der Titel der E-Mail
jmail.Body = "Mail Body" 'Der Inhalt der E-Mail
jmail.AddRecipientBCC Email 'Die Adresse des blinden E-Mail-Empfängers
jmail.AddRecipientCC Email 'Die Adresse der E-Mail-Kopiererin
jmail.Execute() 'E-Mail-Versand ausführen
jmail.Close 'Schließe das Mail-Objekt
Die %>
w3 Jmail4.3-Komponente hat ihre interne Struktur neu gestaltet – sie verwendet das Message-Objekt anstelle des ursprünglichen Einzelobjekts Jmail.smtpmail zum Senden von E-Mails. Einige Methoden erfordern eine Authentifizierung (z. B. 163, Yahoo usw.), was durch gelöst werden kann folgende Methode:
<%
Set jmail = Server.CreateObject("JMAIL.Message") 'Erstelle ein Objekt zum Senden von E-Mails
jmail.silent = true 'Ausnahmefehler abschirmen und FALSE- und TRUE-Werte zurückgeben j
mail.logging = true 'Mail-Protokollierung aktivieren
jmail.Charset = "GB2312" 'Die Textkodierung der E-Mail ist der nationale Standard
jmail.ContentType = "text/html" 'Das Format der E-Mail ist HTML-Format
jmail.AddRecipient Email 'Adresse des E-Mail-Empfängers
jmail.From = "Email From for Sender" 'E-MAIL-Adresse des Absenders
jmail.MailServerUserName = "UserName of Email" 'Benutzername erforderlich, um sich beim Mailserver anzumelden
jmail.MailServerPassword = "Password of Email" 'Passwort erforderlich, um sich beim Mailserver anzumelden
jmail.Subject = "Mail Subject" 'Der Titel der E-Mail
jmail.Body = "Mail Body" 'Der Inhalt der E-Mail
jmail.Prority = 1 'E-Mail-Notfallprogramm, 1 ist das schnellste, 5 ist das langsamste, 3 ist der Standardwert
jmail.Send("Server Address") 'E-Mail-Versand durchführen (über die Mail-Server-Adresse)
jmail.Close() 'Schließe das Objekt
%>
Lassen Sie uns darüber sprechen, wie Sie Nachrichten mit der Microsoft-eigenen CDONTS-Komponente senden:
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") 'Ein Mail-Objekt erstellen
cdomail.Subject = "Mail-Betreff" 'Mail-Titel
cdomail.From = "Sender's Mail" 'Absenderadresse
cdomail.To = „E-Mail wird von“ „Adresse des Empfängers“ gesendet
cdomail.Body = "Mail Body" 'Der Inhalt der E-Mail
cdomail.Send 'Senden ausführen
%>
Diese Methode ist die einfachste zum Versenden von E-Mails, bringt jedoch auch gewisse Probleme mit sich, das heißt, nur wenige Server öffnen diesen Dienst!
Wenn wir Programme schreiben, sagen wir normalerweise, dass der Code modularisiert sein sollte, um Wartung und Portierung zu erleichtern. Daher schreibe ich diese E-Mail hier als Unterprogramm, das beim Aufruf direkt aufgerufen werden kann (natürlich ist es auch möglich, wenn Sie gerne eine Funktion schreiben, dies hängt hauptsächlich vom persönlichen Interesse ab):
<%
'Parameterbeschreibung
„Betreff: E-Mail-Titel
„MailAddress: Die Adresse des sendenden Servers, z. B. smtp.163.com
„E-Mail: E-Mail-Adresse des Empfängers
'Absender: Name des Absenders
„Inhalt: E-Mail-Inhalt
'Fromer: E-Mail-Adresse des Absenders
Sub SendAction(Betreff, E-Mail-Adresse, E-Mail, Absender, Inhalt, Absender)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Erstelle ein JMAIL-Objekt
jmail.silent = true 'JMAIL löst keine Ausnahmefehler aus und die zurückgegebenen Werte sind FALSE und TRUE
jmail.logging = true 'Nutzungsprotokolle aktivieren
jmail.Charset = "GB2312" 'Der Code des E-Mail-Textes ist vereinfachtes Chinesisch
jmail.ContentType = "text/html" 'Das Format der E-Mail ist HTML
jmail.ServerAddress = mailaddress 'Der Server, der E-Mails sendet
jmail.AddRecipient Email 'Der Empfänger der E-Mail
jmail.SenderName = sender 'Der Name des E-Mail-Absenders
jmail.Sender = fromer 'Die E-Mail-Adresse des E-Mail-Absenders
jmail.Priority = 1 'E-Mail-Notfallprogramm, 1 ist das schnellste, 5 ist das langsamste, 3 ist der Standardwert
jmail.Subject = subject 'Der Titel der E-Mail
jmail.Body = content 'Der Inhalt der E-Mail
„Da BCC und CC nicht verwendet werden, sind diese beiden Sätze hier blockiert. Bei Bedarf können Sie sie hier wiederherstellen.“
'jmail.AddRecipientBCC Email 'Die Adresse des blinden E-Mail-Empfängers
'jmail.AddRecipientCC Email 'Die Adresse der E-Mail-Kopie
jmail.Execute() 'E-Mail-Versand ausführen
jmail.Close 'Schließe das Mail-Objekt
Sub beenden
'Beispiel für den Aufruf dieses Sub
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = „Dies ist eine Test-E-Mail, die mit JMAIL gesendet wurde“
strContent = „JMail-Komponente hat den Test erfolgreich gesendet!“
strEmail = " [email protected] "
strFromer = „ [email protected] “
strMailAddress = "mail.ubbcn.com"
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>
Das Obige ist meine grobe Meinung zum Code zum Versenden von E-Mails. Ich möchte Ihnen für Ihren Rat danken!