استخدم مكون EasyMailObject لمعالجة رمز مصدر بريد التبادل في ASP-Send Mail (p_sendmail.asp)
<٪@ language = vbscript ٪>
<٪
'******************************************
'هذا الملف يستخدم لإرسال رسائل البريد الإلكتروني
المؤلف: بعيدا
'البريد الإلكتروني: [email protected]
'******************************************
إذا كانت الجلسة ("straccount") = "" أو الجلسة ("broprassword") = "" ثم
استجابة
إنهاء إذا
٪>
<html>
<head>
<meta name = "generator" content = "Microsoft Visual Studio 6.0">
</head>
<style>
<!-
A {text-decoration: none}
->
</style>
<body>
<٪ set smtp = createObject ("easymail.smtp.5")
smtp.licensekey = "AWA/S19I500R1AX30C0R3100"
smtp.mailserver = "192.9.200.89"
smtp.subject = request.form ("الموضوع")
smtp.bodytext = request.form ("bodytext")
smtp.from = request.form ("من")
smtp.fromaddr = request.form ("fromaddr")
smtp.addrecipient request.form ("from") ، request.form ("recept1") ، 1
أضف المرفق
إذا طلب
استجابة. "" ""
آخر
x = smtp.addattachment (request.form ("att") ، 0)
إذا لم يكن x = 0 ثم
Response.write "أدخل خطأ مرفق:" + CSTR (x) + "يرجى الاتصال بالمسؤول."
إنهاء إذا
إنهاء إذا
x = smtp.send
إذا x = 0 ثم
'Response.write ("<p align = center> <br> <br>")
'Response.write ("<font size =")
استجابة. write "<p align = 'center'> <br> <br> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> تم إرسال البريد الإلكتروني بنجاح! </font> </span> </b> "
"الجلسة (" أرسل ") =" y "
آخر
إذا كان x = 7 أو x = 5 ثم
استجابة. write "<br> <br> <p align = 'center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> حدث خطأ في إرسال بريد إلكتروني (" + CSTR (x) +").
<br> <br> <input type = "button" value = "back">
<٪ استجابة
آخر
استجابة. write "<br> <br> <p align = 'center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> حدث خطأ عند إرسال بريد إلكتروني: "+ CSTR (x)+" </span> </font> </b> "٪>
<br> <br> <إدخال type = "button" value = "return" id = button1 name = button1>
<٪ استجابة
إنهاء إذا
إنهاء إذا
اضبط SMTP = لا شيء
٪>
<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>