ใช้ส่วนประกอบ EasyMailObject เพื่อประมวลผลซอร์สโค้ดอีเมลแลกเปลี่ยนใน ASP-ไฟล์แนบ (saveatt.asp)
< %@ language = vbscript %>
-
-
'ไฟล์นี้ใช้ในการดาวน์โหลดไฟล์แนบ
'ผู้แต่ง: Awayeah
'อีเมล: [email protected]
-
สลัว fso, tempfile
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
dim tfolder, tname, tfile
'const temporaryFolder = 2
'SET TFOLDER = FSO.GetSpecialFolder (TemporaryFolder)
SET POP3 = เซสชัน ("POP3")
'SET POP3 = CreateObject ("EasyMail.POP3.5")
'POP3.LicenseKey = "AWA/S19I500R1AX30C0R3100"
'pop3.mailserver = strserver
'pop3.account = เซสชัน ("straccount")
'pop3.password = เซสชัน ("strpassword")
'POP3.PreerDedBodyFormat = 1
'pop3.timeout = 90
x = pop3.connect ()
ถ้า x <> 0 แล้ว
Response.write "ข้อผิดพลาดการเชื่อมต่อ:" + CSTR (x)
POP3.Disconnect
สิ้นสุดถ้า
'ตั้งค่าไดเรกทอรีชั่วคราวที่เก็บเอกสารแนบให้ใช้เส้นทางที่แน่นอน
pop3.tempDirectory = "e:/webmail/mailatt"
y = pop3.downloadheaders
i = clng (request.querystring ("msgid"))))
j = clng (request.querystring ("attid"))))
msg = pop3.downloadsinglemessage (i)
'ตั้งค่าวัตถุข้อความเพื่อชี้ไปที่ข้อความที่ดาวน์โหลด
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 "ไฟล์: ///"+"/mailatt/"+message.attachments (j) .filename
pathName = message.attachments (j) .tempfilename
ParentFolder = fso.getParentFolderName (ชื่อพา ธ )
ตั้งค่าโฟลเดอร์ = fso.getFolder (ParentFolder)
dir_name = folder.name
filename = fso.getFilename (ชื่อพา ธ )
path = "/webmail/mailatt/"+dir_name+"/"+filename
Response.redirect Path
-