Using the Easymailobject component in ASP to process Exchange message source code---Read message subject and size (maillist1.asp)
<%@ language= "VBSCRIPT"%>
<%
'************************************************
' This file lists all the messages and puts the message Content display window as a blank window
' Author: Awayeah
' E-mail: awayeah@163.net
'************************************************
%>
<script language=vbscript>
parent.frmbottom.location.href= "Blank.htm"
Sub Cmdel_onclick ()
' Delete message
Frmail.submit
End Sub
</script>
<%
If session ("straccount") = "" or Session ("strpassword") = "" Then
Response.Write ("Response.Write ("<a href= ' login.asp ' target= ' _top '" ></a></p></body>Response.End
End If
%>
<title> Receive email </title>
<STYLE>
<!--
A{text-decoration:none}
-->
</STYLE>
<body bgcolor= "#008080" text= "#000000" >
<%
' Define mail server address
Strserver=session ("Strserver")
' Define account number
Straccount=session ("Straccount")
' Define Password
Strpassword=session ("Strpassword")
' Set the various properties of the component
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
If x <> 0 Then
Response.Write "<p align=center> Connection Error:" + CStr (x) + <br><br> please contact administrator
POP3. Disconnect
Response.End
End If
x = POP3. Downloadmessages (0)
If x <> 0 Then
Response.Write "Download Error:" + CStr (x) + <br><br> please contact administrator
POP3. Disconnect
Response.End
End If%>
<p><br></p>
<form name= "Frmail" action= "mail_prc.asp" method= "POST" >
<center>
<table border= "1" width= "580" cellspacing= "0" cellpadding= "0" bordercolor= "#000080" bgcolor= "#FFFFFF" >
<TR><TD colspan=6 align= "center" >
<%
' Page-handling
If Request.QueryString ("currentpage") = "" Then
Cp=1
Else
Cp=request.querystring ("CurrentPage")
End If
' Get total mail
M_count=pop3. Messages.count
If m_count<=10 Then
Pagenum=1
Sd=1
Ed=m_count
Else
Pagenum=int (M_COUNT/10) +1
If CLNG (CP) <>pagenum Then
Lastpage=m_count MoD 10
Sd= (CLNG (CP)-1) *10+1
ED=CLNG (CP) *10
Else
Sd= (CLNG (CP)-1) *10+1
Ed=m_count
End If
End If
%>
You have <font color= "ff00ff" ><%=POP3. Messages.count%></font> an e-mail message. </td>
<%session ("Msgcount") =pop3. Messages.count%>
</tr>
<tr>
<TD align= "center" width= ">" </td>
<TD align= "center" width= ">" From/Reply </td>
<TD align= "center" width= "270" > Theme </td>
<TD align= "center" width= "the" > Date </td>
<TD align= "center" width= "> Size </td>
<TD align= "center" width= "> Choice </td>
</tr>
<%for i= SD to Ed%>
<tr>
<TD align= "center" width= "><%=i%></td>"
<%
fw= "Reply:" +replace (POP3.messages.item (i). Subject,space (1), "_")
%>
<TD width= ">"
<%receiver=pop3. Messages.item (i) .from%>
<%if POP3. Messages.item (i). fromaddr= "" then%>
<a href= "" >
<%else
%>
<a href=# Onclick=javascript:window.open (' Sendmail1.asp?addr=<%=pop3.messages.item (i) .fromaddr%>& Subject=<%=fw%> ', ' sendnew ', ' Width=600,height=480,scrollbars=yes ');>
<%end if%>
<%if Trim (receiver) = "" Then
Response.Write "Anonymous </a>"%>
<%else%>
<a href=# Onclick=javascript:window.open (' Sendmail1.asp?addr=<%=pop3.messages.item (i) .fromaddr%>& Subject=<%=fw%> ', ' sendnew ', ' Width=600,height=480,scrollbars=yes ');>
<font face= "Song Body" size= "2" >
<%=pop3. Messages.item (i). From%></font>
<%end if%>
</td>
<TD width= "270" >
<%msgid=pop3. Getmessageid (i)%>
<a href= "showbody1.asp?id=<%=msgid%>" target= "Frmbottom" >
<font face= "Song Body" size= "2" >
<%
If Trim (POP3.messages.item (i). Subject) = "" Then
Response.Write "No Theme"
Else
Response.Write POP3.messages.item (i). Subject
End If
%></font>
</a></td>
<TD width= "><font" face= "Arial" size= "2" ><%=cdate (Mid (CStr (POP3.messages.item (i). Date), 6,11)%> </font></td>
<TD width= "><font" face= "Song Body" size= "2" ><%=pop3.messages.item (i) .size%></font></td>
<td><input type= "checkbox" Name= "c<%=i%>" value= "<%=i%>" ></td>
</tr>
<%next
POP3. Disconnect
%>
</table>
</center>
<p align= "center" ><input type= "button" Name= "Cmdel" value= "Delete" ></p>
</form>
<div align= "center" >
<table border= "1" cellspacing= "0" cellpadding= "0" bordercolor= "#ff0080" bgcolor= "#FFFFFF" >
<tr><td> pages </td>
<%for I=1 to Pagenum%>
<td><a href= "maillist1.asp?currentpage=<%=i%>" target=frmtop> <%=i%> </a></td>
<%next%>
</tr></table></div>
</body>
