Use o componente EasyMailObject para processar o Código Fonte de Correio do Exchange no ASP-Leia o conteúdo e anexos de email (showbody1.asp)
< %@ Idioma = "vBScript" %>
<%
'***************************************************** *****
'Este arquivo mostra o conteúdo e os anexos do email
Autor: Awayeah
'E -mail: [email protected]
'***************************************************** *****
%>
<html>
<head>
<Title> Leia o email </ititure>
</head>
<Body>
<%
Definir pop3 = sessão ("POP3")
x = pop3.Connect ()
Se x <> 0 então
Response.Write "Erro de conexão:" + cstr (x)
POP3.Disconnect
Final se
y = pop3.DownloadHeaders
j = pop3.getMessagenumFromid (request.QueryString ("id")))
msg = pop3.DownloadSingleMessage (J)
'Defina o objeto da mensagem para apontar para essa mensagem baixada
Definir mensagem = POP3.MESSAGES (MSG)
'Mostre conteúdo de email
Response.Write Substituir (Message.BodyText, Chr (13), "<br>")
%>
<%
'Se a mensagem tiver um anexo, o nome do arquivo de anexo e o tamanho do arquivo serão exibidos
se message.attachments.count> 0 então%>
<p> </p>
<HR>
<Tabela Border = 1 align = "Left" CellPacing = "0">
<tr> <td> Nome do arquivo </td> <td> size </td> <tr>
<%
Para k = 1 para message.attachments.count
Response.Write ("<tr> <td>")%>
<a href =# onclick = javascript: window.open ('SaveTt.asp? msgid = <%= j%> & AttID = <%= k%>', 'getAtt', 'largura = 600, altura = 440, barras de rolagem = sim ');>
<%= Message.attachments (k) .name%> </a> </td> <td>
<%Response.Write CSTR (Message.attachments (K) .Size)
Response.Write "</td> </tr>"
Próximo
%>
</tabela>
<%
final se
POP3.Disconnect
%>
</body>
</html>