用EasyMailObject组件处理Exchange邮件源代码(1)
2018-09-06 12:34
在ASP中用EasyMailObject组件处理Exchange邮件源代码---读取邮件主题和大小(maillist1.asp)
<%@ LANGUAGE=VBSCRIPT %>
<%
************************************************
这个文件列出所有邮件，并把邮件内容显示窗口置为空白窗口
作者：awayeah
************************************************
%>
<script language=vbscript>
parent.frmbottom.location.href=blank.htm
sub cmdel_onClick()
删除邮件
frmail.submit
end sub
</script>
<%
if session(straccount)= or session(strpassword)= then
Response.write(<html><title>错误，尚未登录</title><body><p align=center><br><br>你尚未登录，请先退出登录!<br><br>)
Response.Write (<a href=login.asp target=_top><img src=/edu/UploadPic/2007-12/200712913368216.jpg border=0></a></p></body></html>)
Response.End
end if
%>
<html>
<head>
<title>收邮件</title>
</head>
<STYLE>
<!--
A{text-decoration:none}
-->
</STYLE>
<body bgcolor=#008080 text=#000000>
<%
定义邮件服务器地址
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=120
If x <> 0 Then
Response.Write <p align=center>连接错误: + CStr(x) + <br><br>请和管理员联系
POP3.Disconnect
Response.End
End If
x = POP3.DownloadMessages(0)
If x <> 0 Then
Response.Write 下载错误: + CStr(x) +<br><br>请和管理员联系
POP3.Disconnect
Response.End
End If%>
<p><br></p>
<form name=frmail action=mail_prc.asp method=POST>
<center>
<table border=1 width=580 cellspacing=0 cellpadding=0 bordercolor=#000080 bgcolor=#FFFFFF>
<tr><td colspan=6 align=center>
<%
分页处理
if Request.QueryString(currentpage)= then
cp=1
else
cp=Request.QueryString(currentpage)
end if
得到邮件总数
if m_count<=10 then
pagenum=1
sd=1
ed=m_count
else
pagenum=int(m_count/10)+1
if clng(cp)<>pagenum then
lastpage=m_count mod 10
sd=(clng(cp)-1)*10+1
ed=clng(cp)*10
else
sd=(clng(cp)-1)*10+1
ed=m_count
end if
end if
%>
你有<font color=ff00ff><%=POP3.Messages.Count%></font>封邮件。</td>
<%session(msgcount)=POP3.Messages.Count%>
</tr>
<tr>
<td align=center width=20>号</td>
<td align=center width=120>来自/回复</td>
文章标题：用EasyMailObject组件处理Exchange邮件源代码(1)
文章链接：http://soscw.com/index.php/essay/10454.html