Gunakan komponen EasyMailObject untuk memproses kode sumber surat pertukaran dalam ASP-membaca konten dan lampiran surat (showbody1.asp)
< %@ Language = "vbscript" %>
<%
'*********************************************** *****
'File ini menunjukkan konten dan lampiran email
'Penulis: Awayeah
'Email: [email protected]
'*********************************************** *****
%>
<Html>
<head>
<title> Baca Email </iteme>
</head>
<body>
<%
Setel POP3 = Sesi ("POP3")
x = pop3.connect ()
Jika x <> 0 lalu
Response.write "Kesalahan koneksi:" + cstr (x)
Pop3.disconnect
Akhiri jika
y = pop3.downloadHeaders
j = Pop3.getMessAgenumFromId (request.QueryString ("id"))
msg = pop3.downloadsinglemessage (j)
'Tetapkan objek pesan untuk menunjuk ke pesan yang diunduh itu
Setel pesan = pop3.messages (msg)
'Tunjukkan konten email
Response.write ganti (message.bodyText, chr (13), "<br>")
%>
<%
'Jika pesan memiliki lampiran, nama file lampiran dan ukuran file akan ditampilkan
Jika pesan.Attachments.count> 0 lalu%>
<p> </p>
<Hr>
<Border Tabel = 1 Align = "kiri" CellPacing = "0">
<tr> <td> Nama file </td> <td> ukuran </td> <tr>
<%
Untuk k = 1 ke pesan.Attachments.count
Response.write ("<tr> <td>")%>
<a href =# onclick = javascript: window.open ('saveatt.asp? msgid = <%= j%> & attid = <%= k%>', 'getatt', 'width = 600, tinggi = 440, scrollbars = ya ');>
<%= Pesan
<%Response.write cstr (pesan.Attachments (k) .Size)
Response.write "</td> </tr>"
Berikutnya
%>
</boable>
<%
akhiri jika
Pop3.disconnect
%>
</body>
</html>