Utilisez le composant EasyMailObject pour gérer le code source du courrier Exchange dans ASP --- Lisez le sujet et la taille du courrier (Maillist1.asp)
<% @ Lingots = "vbscript"%>
<%
'************************************************* *****
'Ce fichier répertorie tous les e-mails et définit la fenêtre d'affichage du contenu du courrier sous forme de fenêtre vide
'Auteur: Awayeah
'Courriel: [email protected]
'************************************************* *****
%>
<Script Language = VBScript>
parent.frmbottom.location.href = "Blank.htm"
sub cmdel_onclick ()
'Supprimer l'e-mail
frmail.soubmette
Sub-Sub
</cript>
<%
Si session ("strAccount") = "" ou session ("strpassword") = "" puis
Response.Write ("<Html> <Title> Erreur, non connectée encore </Title> <body> <p align = Center> <br> <br> Vous n'êtes pas encore connecté, veuillez vous déconnecter d'abord! <Br > <br> ")
Réponse.write ("<a href = 'login.asp' cible = '_ top'> <img src = 'http: //www.newap.net/article/asp/example/2005/logout.jpg' border = 0 > / a> </p> </ body> </html> ")
Réponse.
terminer si
%>
<html>
<adal>
<Title> Recevez un e-mail </TITME>
</ head>
<Style>
<! -
A {text-décoration: aucun}
->
</ Style>
<corps bgcolor = "# 008080" text = "# 000000">
<%
«Définissez l'adresse du serveur de messagerie
strServer = session ("strServer")
'Définir le compte
strAccount = session ("strAccount")
'Définir le mot de passe
strpassword = session ("strpassword")
«Définissez diverses propriétés du composant
Set pop3 = createObject ("easymail.pop3.5")
Pop3.LICENSEKEY = "AWA / S19I500R1AX30C0R3100"
Pop3.mailserver = strServer
Pop3.account = strAccount
Pop3.password = strpassword
pop3.preferredBodyFormat = 1
Pop3.Timeout = 120
x = pop3.connect
Si x <> 0 alors
Response.Write "<p align = Center> Erreur de connexion:" + cstr (x) + "<br> <br> Veuillez contacter l'administrateur"
Pop3.disconnect
Réponse.
Terminer si
x = pop3.DownloadMessages (0)
Si x <> 0 alors
Response.Write "Erreur de téléchargement:" + cstr (x) + "<br> <br> Veuillez contacter l'administrateur"
Pop3.disconnect
Réponse.
Terminer si%>
<p> <br> </p>
<form name = "frmail" action = "mail_prc.asp" méthode = "post">
<Nenter>
<table cellpacing = "0" cellpadding = "0" bordercolor = "# 000080" bgcolor = "# fffff">
<tr> <td colspan = 6 align = "Center">
<%
'Traitement de la pagination
si request.queryString ("currentPage") = "" alors
cp = 1
autre
cp = request.querystring ("currentpage")
terminer si
'Obtenez le nombre total d'e-mails
m_count = pop3.Messages.Count
Si m_count <= 10 alors
pagenum = 1
SD = 1
ed = m_count
autre
pagenum = int (m_count / 10) +1
Si Clng (CP) <> Pagenium alors
lastpage = m_count mod 10
sd = (Clng (cp) -1) * 10 + 1
ed = clng (cp) * 10
autre
sd = (Clng (cp) -1) * 10 + 1
ed = m_count
terminer si
terminer si
%>
Vous avez <font color = "ff00ff"> <% = pop3.messages.count%> </font> e-mails. </td>
<% Session ("msgCount") = pop3.Messages.Count%>
</tr>
<tr>
<td align = "Center"> numéro </td>
<td align = "Center"> de / réponse </td>
<td align = "Center"> thème </td>
<td align = "Center"> Date </td>
<td align = "Center"> Taille </td>
<td align = "Center"> SELECT </td>
</tr>
<% pour i = sd à ed%>
<tr>
<td align = "Center"> <% = i%> </td>
<%
fw = "Répondre:" + remplacer (pop3.messages.item (i) .subject, espace (1), "_")
%>
<TD>
<% récepteur = pop3.messages.item (i) .from%>
<% si pop3.messages.item (i) .fromaddr = "" puis%>
<a href = "">
<% sinon
%>
<a href = # onclick = javascript: window.open ('sendmail1.asp? addr = <% = pop3.messages.item (i) .fromaddr%> & sujet = <% = fw%>', 'sendnew', ' largeur = 600, hauteur = 480, barres de défilement = oui ');>
<% fin si%>
<% si TRIM (récepteur) = "" puis
Response.write "Anonyme </a>"%>
<% else%>
<a href = # onclick = javascript: window.open ('sendmail1.asp? addr = <% = pop3.messages.item (i) .fromaddr%> & sujet = <% = fw%>', 'sendnew', ' largeur = 600, hauteur = 480, barres de défilement = oui ');>
<font face = "宋体" size = "2">
<% = Pop3.messages.item (i) .from%> </font>
<% fin si%>
</td>
<TD>
<% msgid = pop3.getMessageId (i)%>
<a href = "showbody1.asp? id = <% = msgid%>" cible = "frmbottom">
<font face = "宋体" size = "2">
<%
Si TRIM (POP3.Messages.Item (i) .Subject) = "" alors
réponse.WRITE "Pas de sujet"
autre
réponse.write pop3.messages.item (i) .Subject
terminer si
%> </font>
</a> </ td>
<td> <font face = "宋体" size = "2"> <% = cdate (mid (cstr (pop3.messages.item (i) .date), 6,11))%> </font> </ td>
<tdwidth = "60"> <font face = "宋体" size = "2"> <% = pop3.messages.item (i) .size%> </font> </td>
<td> <entrée type = "Checkbox" name = "c <% = i%>" value = "<% = i%>"> </td>
</tr>
<% Suivant
Pop3.disconnect
%>
</ table>
</ Center>
<p align = "Center"> <input type = "Button" name = "cmdel" value = "Delete"> </p>
</ form>
<div align = "Center">
<table cellpacing = "0" cellpadding = "0" bordercolor = "# ff0080" bgcolor = "# fffff">
<tr> <td> pages </td>
<% pour i = 1 au pagenum%>
<td> <a href = "Maillist1.asp? CurrentPage = <% = i%>" Target = frmtop> <% = i%> </a> </td>
<% Next%>
</tr> </ table> </div>
</docy>
</html>