'*********************************
'这是显示邮件内容窗口的文件，根据邮件列示窗口(maillist1.asp)传来的邮件ID来显示所选的邮件
'*********************************
%
读邮件
i=clng(Request.QueryString("id")) '要显示邮件的ID
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
Response.Write replace(POP3.Messages.item(i).bodytext,chr(13),"
") '显示邮件正文
Response.Write ""
if pop3.messages.item(i).Attachments.Count0 then '如果该邮件有附件
%
文件名
大小
For k = 1 To pop3.messages.item(i).Attachments.Count '按附件数循环显示所有附件名
Response.Write ("")%
%26amp;attid=','getatt','width=640,height=480,scrollbars=yes');
Response.Write "
"
Next
%
end if
POP3.Disconnect
' Set POP3 = Nothing
%