用EasyMailObject组件处理Exchange邮件源代码(3)

　　在ASP中用EasyMailObject组件处理Exchange邮件源代码---保存附件(saveatt.asp)

<%@ Language=VBScript %>
<%
*************************************

这个文件用来下载附件
作者：awayeah

*************************************


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
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
Message.Attachments(j).save tfolder+/+Message.Attachments(j).filename,1
Message.Attachments(j).save c:inetpub/
Response.write file:///+/mailatt/+Message.Attachments(j).filename
pathname=Message.Attachments(j).TempFileName
parentfolder=fso.GetParentFolderName(pathname)
set folder=fso.GetFolder(parentfolder)
filename=fso.GetFileName(pathname)
path=/webmail/mailatt/+dir_name+/+filename
Response.Redirect path
%>