Utilisez le composant EasyMailObject pour traiter le code source d'échange de message
<% @ Lingots = "vbscript"%>
<%
'************************************************* *****
«Ce fichier affiche le contenu et les pièces jointes de l'e-mail
'Auteur: Awayeah
'Courriel: [email protected]
'************************************************* *****
%>
<html>
<adal>
<Title> Lire Email </TITME>
</ head>
<body>
<%
Set pop3 = session ("POP3")
x = pop3.connect ()
Si x <> 0 alors
Response.Write "Erreur de connexion:" + cstr (x)
Pop3.disconnect
Terminer si
y = POP3.DownloadHeaders
j = pop3.getMessageNumFromid (request.querystring ("id"))
MSG = POP3.DownloadSingleMessage (J)
'Définir l'objet de message pour pointer ce message téléchargé
Set message = pop3.messages (msg)
'Afficher le contenu des e-mails
Response.Write Remplace (message.bodyText, Chr (13), "<br>")
%>
<%
'Si le message a une pièce jointe, le nom de fichier de pièce jointe et la taille du fichier s'affichent
Si message.attachments.Count> 0 puis%>
<p> </p>
<hr>
<Table Border = 1 align = "Left" Cellpacing = "0">
<tr> <td> Nom du fichier </td> <TD> Taille </td> <tr>
<%
Pour k = 1 à message.attachments.Count
Réponse.write ("<tr> <td>")%>
<a href = # onclick = javascript: window.open ('Saveatt.asp? msgid = <% = j%> & attId = <% = k%>', 'getatt', 'width = 600, height = 440, Scrollbars = oui ');>
<% = Message.attachments (k) .name%> </a> </td> <td>
<% Response.Write CSTR (Message.Attachments (K) .Size)
Réponse.write "</td> </tr>"
Suivant
%>
</ table>
<%
terminer si
Pop3.disconnect
%>
</docy>
</html>