EasyMailObjectコンポーネントを使用して、ASPの添付ファイル（saveatt.asp）でエクスチェンジメールソースコードを処理します
<％@言語= vbscript％>
<％
'**********************************
'このファイルは、添付ファイルのダウンロードに使用されます
'著者：Awayeah
'電子メール：[email protected]
'**********************************
dim fso、tempfile
fso = createObject（ "Scripting.filesystemObject"）
Dim Tfolder、tname、tfile
'const一時折りたたみ= 2
'set tfolder = fso.getSpecialFolder（一時的なフォルダー）
set pop3 = session（ "pop3"）
'set pop3 = createObject（ "easymail.pop3.5"）
'pop3.licensekey = "awa/s19i500r1ax30c0r3100"
'pop3.mailserver = strserver
'pop3.account = session（ "straccount"）
'pop3.password = session（ "strpassword"）
'pop3.preferredbodyformat = 1
'pop3.timeout = 90
x = pop3.connect（）
x <> 0の場合
Response.write "接続エラー：" + cstr（x）
pop3.disconnect
ifを終了します
'添付ファイルが保存されている一時的なディレクトリを設定するには、このディレクトリにIUSR_HOSTアカウントに十分な権限が与えられ、Webで共有されている必要があります。
pop3.tempdirectory = "e：/webmail/mailatt"
y = pop3.downloadheaders
i = clng（request.querystring（ "msgid"））
j = clng（request.querystring（ "attid"））
msg = pop3.downloadsinglemessage（i）
'そのダウンロードされたメッセージを指すようにメッセージオブジェクトを設定します
メッセージ= pop3.messages（msg）を設定します
'message.attachments（j）.save tfolder+"/"+message.attachments（j）.filename、1
'message.Attachments（j）.save "c：/inetpub // wwwroot/mailatt/"+message.attachments（j）.filename、1
'Response.Write "file：///"+"/mailatt/"+message.attachments（j）.filename
pathname = message.attachments（j）.tempfilename
ParentFolder = fso.getParentFoldername（pathname）
set folder = fso.getFolder（parentFolder）
dir_name = folder.name
filename = fso.getFileName（pathname）
path = "/webmail/mailatt/"+dir_name+"/"+filename
Response.redirectパス
％>