Utilice el componente EasyMailObject para procesar el código fuente de correo de intercambio en ASP-Save Archives (Saveatt.asp)
< %@ Idioma = vBscript %>
<%
'********************************************
'Este archivo se usa para descargar archivos adjuntos
'Autor: awayeah
'Correo electrónico: [email protected]
'********************************************
Dim FSO, Tempfile
Establecer fso = createObject ("scripting.filesystemObject")
Dim tfolder, tname, tfile
'Const temporalfolder = 2
'Set tfolder = fso.getSpecialFolder (Temporalfolder)
Establecer pop3 = session ("Pop3")
'Establecer 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 ()
Si x <> 0 entonces
Response.Rite "Error de conexión:" + CSTR (x)
Pop3. Disconectar
Final si
'Establezca el directorio temporal donde se almacena el archivo adjunto, use una ruta absoluta.
pop3.tempdirectory = "e:/webmail/mailatt"
y = pop3.downloadheaders
i = clng (request.queryString ("msgid"))
j = clng (request.queryString ("Attid"))
msg = pop3.downloadSingLemessage (i)
'Establecer el objeto de mensaje para apuntar a ese mensaje descargado
Establecer mensaje = 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
'Respuesta
PathName = Message.attachments (j) .tempfileName
ParentFolder = fso.getParentFolderName (PathName)
Establecer carpeta = fso.getfolder (ParentFolder)
dir_name = carpeta.name
FileName = fso.getFileName (PathName)
Path = "/webmail/mailatt/"+dir_name+"/"+nombre de archivo
Respuesta.
%>