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