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

保存附件(saveatt.asp)

<%@ language=vbscript %>

<%

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

这个文件用来下载附件

作者：awayeah

邮箱：awayeah@163.net

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

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:\webmail\mailatt"

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)

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 path

%>