EasyMailObjectコンポーネントを使用して、Mail（mail_prc.asp）を削除するときに呼び出されたASPでエクスチェンジメールソースコードを処理します。
<％@言語= vbscript％>
<％
'**********************************
'このファイルは、電子メールを削除するときに呼び出されます
'著者：Awayeah
'電子メール：[email protected]
'**********************************
DIM CC、CC1、SEP、DD
'電子メールの総数を取得します
msgcount = session（ "msgcount"）
sep = "、"
i = 1からmsgcountの場合
dd = "c"+cstr（i）
msgid = cstr（request.form（dd））
msgid = "" thenの場合
CC1 = CC1+MSGID
それ以外
CC1 = CC1+MSGID+SEP
ifを終了します
次
LEN（CC1）= 0の場合
Response.redirect "maillist1.asp"
ifを終了します
cc1 =左（cc1、len（cc1）-1）
薄暗いarr
arr = split（cc1、 "、"）
set pop3 = createObject（ "easymail.pop3.5"）
pop3.account = session（ "straccount"）
pop3.password = session（ "strpassword"）
pop3.mailserver = "192.9.200.89"
pop3.licensekey = "awa/s19i500r1ax30c0r3100"
x = pop3.connect（）
i = 0からubund（arr）の場合
arr（i）= clng（arr（i））
y = pop3.downloadheaders
'メールを削除します
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
Response.End
それ以外
「Response.Write」メッセージが正常に削除されました。」
'Response.Write ""
'pop3.disconnect
ifを終了します
次
pop3.disconnect
Response.redirect "maillist1.asp"
％>
<html>
<head>
<Meta name = "generator" content = "Microsoft Visual Studio 6.0">
</head>
<body>
</body>
</html>