Heute entwickle ich Benutzernachrichten. Die andere Kopie muss an ein bestimmtes Postfach gesendet werden. Ich weiß nicht, ob der Server dies unterstützt per E-Mail senden. Zunächst muss eine Anweisung „On Error Resume Next“ vorhanden sein
Dann versuchen Sie es mit dem Jmail-Beispiel „Resume“:
Dimmen Sie JMail
Setze JMail=Server.CreateObject(JMail.Message)
Beurteilen Sie die Instanz. Wenn die Komponente nicht erfolgreich installiert wurde, wird keine Instanz erstellt:
Wenn JMail nichts ist, dann
Response.Write wird nicht unterstützt
Anders
Response.Write-Unterstützung
Ende wenn
Die anderen Komponenten werden auf die gleiche Weise verarbeitet, was sehr einfach ist.
Es ist am besten, es in der globalen Datei zu verwalten, damit Sie sich bei der Verwendung keine Gedanken darüber machen müssen.
Der beste Weg ist, die E-Mail-Generierung in eine Tabelle einzutragen und dann über den Versand zu sprechen.
Kopieren Sie den Codecode wie folgt:
Funktion IsObjInstalled(strClassString)
Bei Fehler Weiter fortsetzen
IsObjInstalled = False
Fehler = 0
DimxTestObj
Setze xTestObj = Server.CreateObject(strClassString)
Wenn 0 = Err, dann ist IsObjInstalled = True
Setze xTestObj = Nothing
Fehler = 0
Funktion beenden
Urteilscode:
wenn IsObjInstalled(JMail.Message)=True dann{
wenn IsObjInstalled(JMail.Message) =True dann
SendStat = Jmail(***@vevb.com, Kundennachricht aus dem Internet, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Website-Benutzernachricht</title></head><body>Nachrichtenperson: &txtname&<br>Geschlecht: &xingbie&<br>Beratungswebsite: &txtweb&<br>Kontaktinformationen: &txttel&<br>Nachrichteninhalt :&Forts ent&<br>IP-Adresse:&ipaddress&<br>Zeitpunkt der Nachricht:&now()&<br><br>Diese E-Mail wird automatisch vom System gesendet, es ist keine Antwort erforderlich<!--Script Home www.vevb.com-- ><br ><br></body></html>,GB2312,text/html)
Ende wenn
}
jmail-Sendefunktion
Kopieren Sie den Codecode wie folgt:
' ==========================================
' jmail sendet E-Mail
' ==========================================
Funktion Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'Eingabeparameter:
' mailTo-Empfänger-E-Mail-Adresse
'mailTopic E-Mail-Thema
' mailBody E-Mail-Text (Inhalt)
' mailCharset-Mail-Zeichensatz, z. B. GB2312 oder US-ASCII
' mailContentType-E-Mail-Textformat, z. B. text/plain oder text/html
'Rückgabewert:
' String, OK wird nach erfolgreicher Übertragung zurückgegeben, bei erfolgloser Übertragung wird eine Fehlermeldung zurückgegeben.
'Verwendung:
' 1) Legen Sie die Konstante fest, d. h. die Variable, die mit Const beginnt
'2) Verwenden Sie einen Code ähnlich dem folgenden, um eine Nachricht zu senden
'SendStat dimmen
'SendStat = Jmail([email protected], test Jmail, das ist ein Testbrief!, GB2312, text/html)
'Response.Write SendStat
'******************Legen Sie die Konstanten nach Bedarf fest, um zu starten******************
Dimmen Sie ConstFromNameCn, ConstFromNameEn, ConstFrom, ConstMailDomain, ConstMailServerUserName, ConstMailServerPassword
ConstFromNameCn = Chinesischer Name des Absenders von Lottery Network (wird beim Senden chinesischer E-Mails verwendet), z. B. „Zhang San“
ConstFromNameEn = bc5'Der englische Name des Absenders (wird beim Senden englischer E-Mails verwendet), z. B. 'zhangsan'
ConstFrom = [email protected]‘ E-Mail-Adresse des Absenders, z. B. „[email protected]“
ConstMailDomain = SMTP-Serveradresse von smtp.163.com, z. B. smtp.163.com
ConstMailServerUserName = Mailbox-Anmeldename des SMTP-Servers [email protected], z. B. „zhangsan“. Achten Sie darauf, dass die E-Mail-Adresse des Absenders übereinstimmt!
ConstMailServerPassword = Anmeldekennwort für das Postfach des SMTP-Servers von www.vevb.com
'******************Legen Sie die Konstanten nach Bedarf fest, um zu beenden******************
'--------------------------------Der folgende Inhalt muss nicht geändert werden-------- -------- ---------------
Bei Fehler Weiter fortsetzen
Dimmen Sie myJmail
Setze myJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = False'Logging
myJmail.ISOEncodeHeaders = False'Mail-Header verwenden keine ISO-8859-1-Kodierung
myJmail.ContentTransferEncoding = base64'Mail-Kodierung ist auf base64 eingestellt
myJmail.AddHeader Priority,3'Mail-Header hinzufügen, nicht ändern!
myJmail.AddHeader MSMail-Priority,Normal'Fügen Sie den Mail-Header hinzu, ändern Sie ihn nicht!
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'Mail-Header hinzufügen, nicht ändern!
myJmail.AddHeader MimeOLE, Produziert von Microsoft MimeOLE V6.00.2800.1441'Mail-Header hinzufügen, nicht ändern!
myJmail.Charset = mailCharset
myJmail.ContentType = mailContentType
Wenn UCase(mailCharset) = GB2312, dann
myJmail.FromName = ConstFromNameCn
Anders
myJmail.FromName = ConstFromNameEn
Ende wenn
myJmail.From = ConstFrom
myJmail.Subject = mailTopic
myJmail.Body = mailBody
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Send ConstMailDomain
myJmail.Schließen
Setzen Sie myJmail=nothing
Wenn Sie sich irren, dann
Jmail=Err.Description
Fehler.Klar
Anders
Jmail=OK
Ende wenn
Bei Fehler Gehe zu 0
Funktion beenden