为imail和mdaemon设计webmail—读取邮件信息(maillist1.asp)

<%@ 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%>