Verwenden Sie EasyMailObject-Komponenten, um den Exchange-Mail-Quellcode in ASP zu verarbeiten --- Lesen Sie das E-Mail-Betreff und die E-Mail (Maillist1.asp).
< %@ Sprache = "vbscript" %>
<%
'****************************************** *****
'Diese Datei listet alle E -Mails auf und legt das E -Mail -Inhaltsfenster als leeres Fenster fest
'Autor: Awayeah
'E -Mail: [email protected]
'****************************************** *****
%>
<script Language = vbScript>
Parent.frmbottom.location.href = "blank.htm"
sub cmdel_onclick ()
'Löschen Sie die E -Mail
frmail.submit
Ende sub
</script>
<%
Wenn Sitzung ("Straccount") = "" oder Session ("Strpassword") = "" Dann
Response.write ("<html> <title> Fehler, noch nicht angemeldet. > <br> ")
Response.write ("<a href = 'login.asp' target = '_ top'> <img src = 'http: //www.newap.net/article/asp/example/2005/logout.jpg' Border = 0 >/a> </p> </body> </html> "))
Antwort.end
Ende wenn
%>
<html>
<kopf>
<title> E -Mail </title> erhalten
</head>
<Styles>
<!-
A {Textdekoration: Keine}
->
</Style>
<Body Bgcolor = "#008080" text = "#000000">
<%
'Definieren Sie die E -Mail -Server -Adresse
StrServer = Session ("Strserver")
'Definieren Sie das Konto
Strocount = Session ("Straccount")
'Passwort definieren
STRPassword = Session ("Strpassword")
'Setzen Sie verschiedene Eigenschaften der Komponente
Setzen Sie Pop3 = CreateObject ("EasyMail.pop3.5")
Pop3.licenseKey = "AWA/S19I500R1AX30C0R3100"
Pop3.mailserver = strServer
Pop3.account = Streaturen
Pop3.password = strPassword
Pop3.PreferredBodyFormat = 1
Pop3.Timeout = 120
x = pop3.connect
Wenn x <> 0 dann
Antwort.Write "<P Align = Center> Verbindungsfehler:" + cstr (x) + "<br> <br> Bitte kontaktieren Sie den Administrator"
Pop3.disconnect
Antwort.end
Ende wenn
x = pop3.downloadMessages (0)
Wenn x <> 0 dann
Antwort.Write "Download -Fehler:" + cstr (x) + "<br> <br> Bitte kontaktieren Sie den Administrator"
Pop3.disconnect
Antwort.end
Ende wenn%>
<p> <br> </p>
<Formular name = "frmail" action = "mail_prc.asp" method = "post">
<Center>
<Table Cellpacing = "0" cellpadding = "0" borderColor = "#000080" bgcolor = "#fffff">
<tr> <td colspan = 6 align = "center">
<%
'Paginierungsverarbeitung
Wenn Request.queryString ("CurrentPage") = "" dann
CP = 1
anders
CP = Request.queryString ("CurrentPage")
Ende wenn
'Holen Sie sich die Gesamtzahl der E -Mails
m_count = pop3.messages.count
Wenn m_count <= 10 dann
Pagenum = 1
SD = 1
ed = m_count
anders
pagenum = int (m_count/10) +1
Wenn clng (cp) <> pagenum dann
LastPage = M_COUNT MOD 10
SD = (CLNG (CP) -1)*10+1
ed = clng (cp)*10
anders
SD = (CLNG (CP) -1)*10+1
ed = m_count
Ende wenn
Ende wenn
%>
Sie haben <font color = "ff00ff"> <%= pop3.Messages.count%> </font> E -Mails. </td>
<%Sitzung ("msgCount") = pop3.Messages.count%>
</tr>
<tr>
<td align = "center"> nummer </td>
<td align = "center"> aus/Antwort </td>
<td align = "center"> thema </td>
<td align = "center"> date </td>
<td align = "center"> Größe </td>
<td align = "center"> select </td>
</tr>
<%für i = sd zu ed%>
<tr>
<td align = "center"> <%= i%> </td>
<%
fw = "Antwort:"+ersetzen (pop3.messages.Item (i) .Subject, Space (1), "_")
%>
<td>
<%receiver = pop3.Messages.Item (i) .From%>
<%if pop3.messages.item (i) .fromaddr = "" dann%>
<a href = "">
<%sonst
%>
<a href =#onclick = javaScript: window.open ('sendmail1.asp? addr = <%= pop3.Messages.Item (i) .fromaddr%> & subjekt = <%= fw%>', 'sendNew', ',', ',', ',', ',', ',', ',', ',', ',', ',', ' Breite = 600, Höhe = 480, Scrollbars = Ja ');>
<%Ende wenn%>
<%If TRIM (Empfänger) = "" Dann
Antwort.Write "Anonymous </a>"%>
<%sonst%>
<a href =#onclick = javaScript: window.open ('sendmail1.asp? addr = <%= pop3.Messages.Item (i) .fromaddr%> & subjekt = <%= fw%>', 'sendNew', ',', ',', ',', ',', ',', ',', ',', ',', ',', ' Breite = 600, Höhe = 480, Scrollbars = Ja ');>
<font face = "宋体" size = "2">
<%= Pop3.Messages.Item (i) .From%> </font>
<%Ende wenn%>
</td>
<td>
<%msgid = pop3.getMessageId (i)%>
<a href = "showbody1.asp? id = <%= msgid%>" target = "frmbottom">
<font face = "宋体" size = "2">
<%
Wenn Trim (pop3.Messages.Item (i) .Subject) = "" Dann
Antwort.Write "kein Thema"
anders
response.write pop3.messages.item (i) .Subject
Ende wenn
%> </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> <Eingabe type = "CheckBox" name = "c <%= i%>" value = "<%= i%>"> </td>
</tr>
<%als nächstes
Pop3.disconnect
%>
</table>
</center>
<p align = "center"> <Eingabe type = "button" name = "cmdel" value = "delete"> </p>
</form>
<Div Align = "Center">
<Table Cellpacing = "0" cellpadding = "0" borderColor = "#ff0080" bgcolor = "#fffff">
<tr> <td> Seiten </td>
<%für i = 1 bis pagenum%>
<td> <a href = "mailist1.asp? currentPage = <%= i%>" target = frmtop> <%= i%> </a> </td>
<%Next%>
</tr> </table> </div>
</body>
</html>