Verwenden Sie EasyMailObject-Komponenten, um den Exchange-Mail-Quellcode in ASP-Lesen zu E-Mail-Inhalten und -Antsanhang zu verarbeiten (showbody1.asp).
< %@ Sprache = "vbscript" %>
<%
'****************************************** *****
'Diese Datei zeigt den Inhalt und die Anhänge der E -Mail an
'Autor: Awayeah
'E -Mail: [email protected]
'****************************************** *****
%>
<html>
<kopf>
<title> E -Mail lesen </title>
</head>
<body>
<%
Setzen Sie Pop3 = Session ("Pop3")
x = pop3.connect ()
Wenn x <> 0 dann
Antwort.Write "Verbindungsfehler:" + cstr (x)
Pop3.disconnect
Ende wenn
y = pop3.downloadHeaders
j = pop3.getMessagenumfromid (Request.queryString ("ID"))
msg = pop3.downloadSingLemessage (j)
Setzen Sie das Nachrichtenobjekt, um auf diese heruntergeladene Nachricht zu verweisen
Setzen Sie Message = Pop3.Messages (MSG)
'E -Mail -Inhalt anzeigen
Response.write ersetzen (message.bodyText, chr (13), "<br>")
%>
<%
'Wenn die Nachricht einen Anhang hat, wird der Name und die Dateigröße für Anhangsdateien angezeigt
wenn message.attachments.count> 0 dann%>
<p> </p>
<hr>
<Table Border = 1 Align = "linke" cellpacing = "0">
<tr> <td> Dateiname </td> <td> Größe </td> <tr>
<%
Für k = 1 bis message.attachments.count
Response.write ("<tr> <td>")%>
<a href =# onclick = javaScript: window.open ('saveatT.asp? msgid = <%= j%> & Attid = <%= k%>', 'getatt', 'width = 600, Höhe = 440, Scrollbars = Ja ');>
<%= Message.attachments (k) .Name%> </a> </td> <td>
<%Response.write CSTR (Message.Attachments (k) .Size)
Response.write "</td> </tr>"
Nächste
%>
</table>
<%
Ende wenn
Pop3.disconnect
%>
</body>
</html>