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
'設(shè)定附件存放的臨時目錄，要用絕對路徑，這個目錄應(yīng)賦足夠的權(quán)限給IUSR_HOST帳戶，并且已經(jīng)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 %>
