【www.hzclsc.cn--热门资讯】

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





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

 %>

本文来源：http://www.hzclsc.cn/news/26468.html