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

王朝asp·作者佚名  2008-05-30
窄屏简体版  字體: |||超大  

'*********************************

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

'*********************************

%

收邮件

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

%

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航