'*********************************
'这是邮件列示窗口，列出所有邮件的发件人、主题、日期、大小等
'*********************************
%
收邮件
A{text-decoration:none}
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%
你有封邮件。
来自/回复
主题
日期
大小
删除
选
for i=pop3.messages.count to 1 step -1
%
0 then '如果这个邮件有附件则显示带附件的图标
Response.Write "
else
Response.Write "
end if
%
fw="回复:"+replace(POP3.messages.item(i).subject,space(1),"_")
%
if POP3.Messages.item(i).fromaddr="" then%
%javascript:window.open('sendmail1.asp?addr=%26amp;subject=','sendnew','width=600,height=480,scrollbars=yes');
response.write "匿 名"%
Javascript:window.open('sendmail1.asp?addr=%26amp;subject=','sendnew','width=600,height=480,scrollbars=yes');
" target="frmbottom"if trim(POP3.messages.item(i).Subject)="" thenresponse.write "无主题"elseresponse.write POP3.messages.item(i).Subjectend if%
" value=""
POP3.Disconnect
' Set POP3 = Nothing
%
