استخدم مكون EasyMailObject لمعالجة رمز مصدر بريد تبادل في مرفقات ASP-Save (SaveAtt.asp)
<٪@ language = vbscript ٪>
<٪
'******************************************
"يتم استخدام هذا الملف لتنزيل المرفقات
المؤلف: بعيدا
'البريد الإلكتروني: [email protected]
'******************************************
قاتمة FSO ، tempfile
set fso = createObject ("scripting.filesystemObject")
Dim Tfolder ، tname ، tfile
'const reporaryfolder = 2
"تعيين tfolder = fso.getspecialfolder (المؤقتة)
تعيين pop3 = الجلسة ("pop3")
'set pop3 = createObject ("easymail.pop3.5")
'pop3.licensekey = "AWA/S19I500R1AX30C0R3100"
'pop3.mailserver = strserver
'pop3.account = جلسة ("straccount")
'pop3.Password = Session ("strapsword")
'pop3.preferredbodyformat = 1
'pop3.timeout = 90
x = pop3.connect ()
إذا كان x <> 0 ثم
استجابة. write "خطأ في الاتصال:" + CSTR (x)
pop3.disconnect
إنهاء إذا
"قم بتعيين الدليل المؤقت حيث يتم تخزين المرفق ، وينبغي إعطاء هذا الدليل أذونات كافية لحساب IUSR_HOST وقد تمت مشاركتها بواسطة الويب.
pop3.tempdirectory = "e:/webmail/mailatt"
y = pop3.DownloadHers
i = clng (request.querystring ("msgid"))
j = clng (request.querystring ("attid"))
msg = pop3.downloadsinglemessage (i)
قم بتعيين كائن الرسالة للإشارة إلى تلك الرسالة التي تم تنزيلها
تعيين رسالة = 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 (PathName)
Set Folder = FSO.GetFolder (Parentfolder)
dir_name = folder.name
اسم الملف = fso.getFilename (اسم المسار)
path = "/webmail/mailatt/"+dir_name+"/"+filename
استجابة. مسار redirect
٪>