为imail和Mdaemon设计Webmail---保存附件(saveatt.asp)

王朝asp·作者佚名  2008-05-30
窄屏简体版  字體: |||超大  

为imail和Mdaemon设计Webmail---保存附件(saveatt.asp)

'*********************************

'这是保存附件所调用的文件,要用FileSystemObject组件,指定一个存放附件临时文件的目录,

'这个目录要WEB共享,把附件先保存到这里,然后用浏览器重定向这个文件实现下载

'*********************************

Dim fso, tempfile

Set fso = CreateObject("Scripting.FileSystemObject")

Dim tfolder, tname, tfile

i=Request.QueryString("msgid")

strserver=session("strserver")

strAccount=session("straccount")

strPassword=session("strpassword")

Set POP3 = CreateObject("EasyMail.POP3.5")

POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"

POP3.MailServer = strserver

POP3.Account = straccount

POP3.Password = strpassword

pop3.PreferredBodyFormat=1

pop3.TimeOut=300

x = POP3.Connect

If x 0 Then

Response.Write "连接错误: " + CStr(x) + "

请和管理员联系"

POP3.Disconnect

Response.End

End If

x = POP3.DownloadMessages(0)

If x 0 Then

Response.Write "下载错误: " + CStr(x) +"

请和管理员联系"

POP3.Disconnect

Response.End

End If

pop3.TempDirectory="e:\webmail\mailatt\" '定义一个存放附件临时文件的绝对路径,这个目录必须WEB共享

pp="e:\webmail\mailatt\"

j=(request.querystring("attid")) '得到邮件ID

fn="e:webmail\mailatt\" + pop3.messages.item(i).Attachments.item(j).filename

aa=pop3.messages.item(i).Attachments.item(j).save(fn,1) '保存附件到指定目录

path="http://www.mydomain.com/webmail/mailatt/"+pop3.messages.item(i).Attachments.item(j).filename '重定向到这个附件文件

Response.Redirect path

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航