Verwenden Sie EasyMailObject-Komponente, um den Exchange-Mail-Quellcode in ASP-Send-E-Mail (p_sendmail.asp) zu verarbeiten.
< %@ Sprache = vbScript %>
<%
'**********************************************
'Diese Datei wird zum Senden von E -Mails verwendet
'Autor: Awayeah
'E -Mail: [email protected]
'**********************************************
Wenn Sitzung ("Straccount") = "" oder Session ("Strpassword") = "" Dann
Antwort.end
Ende wenn
%>
<html>
<kopf>
<Meta name = "generator" content = "Microsoft Visual Studio 6.0">
</Head>
<Styles>
<!-
A {Textdekoration: Keine}
->
</Style>
<body>
<%Set SMTP = CreateObject ("EasyMail.smtp.5")
SMTP.LICENSEKEY = "AWA/S19I500R1AX30C0R3100"
SMTP.MailServer = "192.9.200.89"
SMTP.Subject = Request.form ("Subjekt")
SMTP.BodyText = Request.form ("BodyText")
SMTP.From = Request.form ("From")
SMTP.FROMADDR = Request.form ("FromAddr")
SMTP.ADDRECIPIENT Request.form ("From"), Request.Form ("Empfänger1"), 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
'Anhang hinzufügen
Wenn request.form ("att") = "" dann
Response.write "" "
anders
x = SMTP.Addattachment (Request.form ("Att"), 0)
Wenn nicht x = 0, dann
Antwort.Write "Anhangsfehler einfügen:" + cstr (x) + "Kontaktieren Sie den Administrator."
Ende wenn
Ende wenn
x = SMTP.Send
Wenn x = 0 dann
'Response.write ("<p align = center> <br> <br>")
'Response.write ("<font size =")
Antwort.Write "<P Align = 'Center'> <br> <br> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> Die E -Mail wurde erfolgreich gesendet! </Font> </span> </b> "
'Session ("gesendet") = "y"
Anders
Wenn x = 7 oder x = 5 dann
Antwort.Write "<br> <br> <p Align = 'Center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> Ein Fehler beim Senden einer E -Mail (" + cstr (x) +").
<br> <br> <Eingabe type = "button" value = "zurück">
<%Antwort.end
anders
Antwort.Write "<br> <br> <p Align = 'Center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> Es ist ein Fehler beim Senden einer E -Mail: "+ cstr (x)+" </span> </font> </b> "%>
<br> <br> <Eingabe type = "button" value = "return" id = button1 name = button1>
<%Antwort.end
Ende wenn
Ende wenn
Setzen Sie SMTP = nichts
%>
<P align = "center"> <a href = "javaScript: window.close ();">
<font face = "宋体" size = "5"> <b> <span style = "background-color: #ffff00"> return </span> </b> </font> </a> </p>
</Body>
</Html>