当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用EasyMailObject组件处理Exchange邮件源代码(1)

ASP
用密码保护页面 (II)
用密码保护页面 (III)
简单的文件目录浏览源程序
ASP中的函数应用方法及应用举例(一)
ASP中的函数应用方法及应用举例(二)
完整的访问统计系统（一：数据库篇）
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
一个提供用户输入时期的绝好程序之(一)
一个提供用户输入时期的绝好程序之(二)
构建你的网站新闻自动发布系统之五
构建你的网站新闻自动发布系统之六
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
ASP环境下邮件列表功能的实现 （一）
ASP环境下邮件列表功能的实现 （二）
ASP环境下邮件列表功能的实现 （三）
ASP环境下邮件列表功能的实现 （四）
ASP进阶之文章在线管理更新(1)
ASP进阶之文章在线管理更新(2)

No. « 215 216 217 218 »

技术文章搜索

关键字

ASP 中的 用EasyMailObject组件处理Exchange邮件源代码(1)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 28 ::
收藏到网摘: n/a

  在ASP中用EasyMailObject组件处理Exchange邮件源代码---读取邮件主题和大小(maillist1.asp)


<%@ LANGUAGE="VBSCRIPT" %>
<%
'************************************************

'这个文件列出所有邮件，并把邮件内容显示窗口置为空白窗口
'作者：awayeah
'邮箱：[email protected]

'************************************************
%>
<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="/upload/tech/20091103/20091103101706_c4ca4238a0b923820dcc509a6f75849b.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

   x = POP3.Connect
   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
'得到邮件总数
m_count=POP3.Messages.Count
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>
<td align="center" width="270">主题</td>
<td align="center" width="90">日期</td>
<td align="c