达仁堂软件基地:打造最安全放心的免费绿色软件360极速体育nba直播吧_nba百事通极速体育_nba直播 jrs站!

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

2019-11-24来源:http://dijiu.com
保存附件(saveatt.asp)<%@ Language=VBScript %><%'************************************* '这个文件
保存附件(saveatt.asp)<%@ Language=VBScript %><%'*************************************

'这个文件用来360极速体育nba直播吧_nba百事通极速体育_nba直播 jrs附件'作者:awayeah'邮箱:awayeah@163.net

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

Dim fso, tempfileSet 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=90x = POP3.Connect()If x <> 0 ThenResponse.Write "连接错误: " + CStr(x)POP3.DisconnectEnd If

'设定附件存放的临时目录,要用绝对路径,这个目录应赋足够的权限给IUSR_HOST帐户,并且已经WEB共享pop3.TempDirectory="e:\webmail\mailatt"y = POP3.DownloadHeadersi=clng(request.querystring("msgid"))j=clng(request.querystring("attid"))msg = POP3.DownloadSingleMessage(i)'Set Message Object to point to that downloaded messageSet 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).filenamepathname=Message.Attachments(j).TempFileNameparentfolder=fso.GetParentFolderName(pathname)set folder=fso.GetFolder(parentfolder)dir_name=folder.namefilename=fso.GetFileName(pathname)path="/webmail/mailatt/"+dir_name+"/"+filenameResponse.Redirect path%>

热门文章