استخدم مكون EasyMailObject لمعالجة رمز مصدر بريد التبادل في ASP --- ملف يسمى عند حذف البريد (mail_prc.asp)
<٪@ language = vbscript ٪>
<٪
'******************************************
'هذا الملف يسمى عند حذف البريد الإلكتروني
المؤلف: بعيدا
'البريد الإلكتروني: [email protected]
'******************************************
DIM CC ، CC1 ، SEP ، DD
احصل على إجمالي عدد رسائل البريد الإلكتروني
msgcount = جلسة ("msgcount")
SEP = "،"
لأني = 1 إلى msgCount
DD = "C"+CSTR (i)
msgid = cstr (request.form (dd))
إذا msgid = "" ثم
CC1 = CC1+MSGID
آخر
CC1 = CC1+MSGID+SEP
إنهاء إذا
التالي
إذا كان لين (CC1) = 0 ثم
Response.Redirect "Maillist1.asp"
إنهاء إذا
CC1 = يسار (CC1 ، LEN (CC1) -1)
قاتمة ARR
arr = انقسام (cc1 ، "،")
set pop3 = createObject ("easymail.pop3.5")
pop3.Account = جلسة ("straccount")
pop3.password = جلسة ("straPsword")
pop3.mailserver = "192.9.200.89"
pop3.licensekey = "AWA/S19I500R1AX30C0R3100"
x = pop3.connect ()
ل I = 0 إلى Ubund (ARR)
arr (i) = clng (arr (i))
y = pop3.DownloadHers
حذف البريد الإلكتروني
x = pop3.deleteSingLemessage (ARR (i))
إذا كان x <> 0 ثم
'response.write "<p align = center> <br> <br> حدث خطأ عند حذف البريد الإلكتروني (" + CSTR (x) + "). يرجى الاتصال بالمسؤول. <br> <br>"
'response.write "<a href =' maillist1.asp '> return </a> </p>"
pop3.disconnect
استجابة
آخر
"استجابة. write" تم حذف رسالة بنجاح. "
'Response.write ""
'pop3.disconnect
إنهاء إذا
التالي
pop3.disconnect
Response.Redirect "Maillist1.asp"
٪>
<html>
<head>
<meta name = "generator" content = "Microsoft Visual Studio 6.0">
</head>
<body>
</body>
</html>