为imail和Mdaemon设计Webmail---读取邮件信息(maillist1.asp)

12/3/2006来源:IMail Server人气:7027

<%@ LANGUAGE="VBSCRIPT" %>
<%
'*********************************

'这是邮件列示窗口,列出所有邮件的发件人、主题、日期、大小等

'*********************************
%>



收邮件



<%

strserver=session("strserver")
strAccount=session("straccount")
strPassWord=session("strpassword")


Set POP3 = CreateObject("EasyMail.POP3.5")
POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"
POP3.MailServer = strServer
POP3.Account = straccount
POP3.Password = strpassword
'设置邮件内容显示格式
pop3.PReferredBodyFormat=1
pop3.TimeOut=300
'连接
x = POP3.Connect
If x <> 0 Then
Response.Write "

连接错误: " + CStr(x) + "

请和管理员联系"
POP3.Disconnect
Response.End
End If
'下载邮件信息
x = POP3.DownloadMessages(0)
If x <> 0 Then
Response.Write "下载错误: " + CStr(x) +"

请和管理员联系"
POP3.Disconnect
Response.End
End If%>






<%session("msgcount")=POP3.Messages.Count%>








你有<%=POP3.Messages.Count%>封邮件。

来自/回复主题日期大小