Используйте компонент EasyMailObject для обработки исходного кода обмена почтовым кодом в ASP-Save вложения (saveatt.asp)
< %@ Language = vbscript %>
<%
'**************************************************
'Этот файл используется для загрузки вложений
Автор: Awayeah
«Электронная почта: [email protected]
'**************************************************
Dim FSO, Tempfile
Установить fso = createObject ("scripting.filesystemobject")
Dim tfolder, tname, tfile
'Const временный клад = 2
'Set tfolder = fso.getspecialfolder (временный кольцо)
Установите 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.PREREDREDBODYFORMAT = 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)
'Установите объект сообщения, чтобы указать на это загруженное сообщение
Установить сообщение = 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
Ответ. Перегрев пути
%>