在ASP中用EasyMailObject组件处理Exchange邮件源代码---保存附件(savea

<%@ Language=VBScript %>
<%
'*************************************
'这个文件用来下载附件
'作者：awayeah
'邮箱：[email protected]
'*************************************
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")
     Dim tfolder, tname, tfile
'     Const TemporaryFolder = 2
'     Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
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()
     If x <> 0 Then
        Response.Write "连接错误: " + CStr(x)
        POP3.Disconnect
     End If
'设定附件存放的临时目录，要用绝对路径，这个目录应赋足够的权限给IUSR_HOST帐户，并且已经WEB共享
     pop3.TempDirectory="e:webmailmailatt"
     y = POP3.DownloadHeaders
     i=clng(request.querystring("msgid"))
     j=clng(request.querystring("attid"))
     msg = POP3.DownloadSingleMessage(i)
     'Set Message Object to point to that downloaded message
     Set Message = POP3.Messages(msg)