在asp中用easymailobject组件处理exchange邮件源代码---保存附件(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:\.netpub/\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
%>
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
