Use el componente EasyMailObject para procesar el código fuente de correo de intercambio en ASP-Read Contenido y archivos adjuntos (showBody1.asp)
< %@ Idioma = "vBscript" %>
<%
'********************************************************** *****
'Este archivo muestra el contenido y los archivos adjuntos del correo electrónico
'Autor: awayeah
'Correo electrónico: [email protected]
'********************************************************** *****
%>
<html>
<Evista>
<title> Leer correo electrónico </title>
</ablo)
<Body>
<%
Establecer pop3 = session ("Pop3")
x = pop3.connect ()
Si x <> 0 entonces
Response.Rite "Error de conexión:" + CSTR (x)
Pop3. Disconectar
Final si
y = pop3.downloadheaders
j = pop3.getMessagenumFromID (request.queryString ("id"))
msg = pop3.downloadSingLemessage (j)
'Establecer el objeto de mensaje para apuntar a ese mensaje descargado
Establecer mensaje = pop3.messages (msg)
'Mostrar contenido de correo electrónico
Response.Write Reemplazar (Message.BodyText, CHR (13), "<br>")
%>
<%
'Si el mensaje tiene un archivo adjunto, se mostrará el nombre del archivo de archivo adjunto y el tamaño del archivo
if mensaje.attachments.count> 0 luego%>
<p> </p>
<hr>
<tabla border = 1 align = "izquierda" celularpacing = "0">
<tr> <td> nombre de archivo </td> <td> size </td> <tr>
<%
Para k = 1 a mensaje. Attachamiento.Count
Response.write ("<tr> <td>")%>
<a href =# onClick = javaScript: window.open ('saveatt.asp? msgid = <%= j%> & Attid = <%= k%>', 'getatt', 'width = 600, altura = 440, barras de desplazamiento = sí ');>
<%= Message.attachments (k) .Name%> </a> </td> <td>
<%Response.Write CSTR (Message.Attachments (k) .size)
Response.write "</td> </tr>"
Próximo
%>
</table>
<%
final si
Pop3. Disconectar
%>
</body>
</html>