Gunakan komponen EasyMailObject untuk memproses kode sumber surat pertukaran di ASP-Lampiran Save (Saveatt.asp)
< %@ Bahasa = VBScript %>
<%
'**************************************
'File ini digunakan untuk mengunduh lampiran
'Penulis: Awayeah
'Email: [email protected]
'**************************************
Redup fso, tempfile
Atur fso = createObject ("Scripting.filesystemObject")
Redup tfolder, tname, tfile
'Const sementara lipat = 2
'Atur tfolder = fso.getSpecialFolder (TemporaryFolder)
Setel POP3 = Sesi ("POP3")
'Set Pop3 = CreateObject ("EasyMail.pop3.5")
'Pop3.licensey = "AWA/S19I500R1AX30C0R3100"
'Pop3.mailserver = strserver
'Pop3.account = sesi ("Straccount")
'Pop3.password = session ("strpassword")
'Pop3.PreferredBodyFormat = 1
'pop3.timeout = 90
x = pop3.connect ()
Jika x <> 0 lalu
Response.write "Kesalahan koneksi:" + cstr (x)
Pop3.disconnect
Akhiri jika
'Atur direktori sementara di mana lampiran disimpan, gunakan jalur absolut.
POP3.tempDirectory = "E:/Webmail/Mailatt"
y = pop3.downloadHeaders
i = clng (request.querystring ("msgid"))
j = clng (request.queryString ("attid"))
msg = pop3.downloadsinglemessage (i)
'Tetapkan objek pesan untuk menunjuk ke pesan yang diunduh itu
Setel pesan = pop3.messages (msg)
'Message.Attachments (j) .Save tfolder+"/"+message.attachments (j) .filename, 1
'Message.Attachments (j) .Save "c:/inetpub // wwwroot/failatt/"+pesan.Attachments (j) .filename, 1
File 'response.write ": ///"+"/mailatt/"+message.attachments (j) .fileName
pathname = pesan.Attachments (j) .tempfileName
ParentFolder = fso.getParentFoldername (Pathname)
Setel folder = fso.getFolder (parentfolder)
dir_name = folder.name
FileName = fso.getFileName (pathname)
path = "/webmail/mailatt/"+dir_name+"/"+nama file
Response.Redirect Path
%>