繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在ASP中用EasyMailObject组件处理Exchange邮件源代码(1)
- ASP
- asp实现取得数组中的最大值的代码
- asp 将日期格式化为需要的格式
- asp 下产生任意位数随机密码的代码
- asp下返回以千分位显示数字格式化的数值
- asp重定向页面的方法总结
- asp下去除数组中重复的项的方法
- asp下实现 重新排序数字数组的代码
- asp 验证输入网址是否有效并可以访问 与正则验证输入网址
- asp验证Ip格式的函数
- asp实现生成由数字，大写字母，小写字母指定位数的随机数
- asp 格式化sql中的like字符串
- asp 实现显示所有的服务器变量值的函数
- asp 取得用户真实IP，对代理地址仍然有效的函数
- asp 通用数据库连接过程函数
- asp 字符串截取函数
- asp下实现格式化文件大小以MB显示的函数
- asp 下用正则表达式检测邮箱格式的函数
- asp 实现检测字符串是否为纯字母和数字组合的函数
- asp代码实现检测组件是否安装的函数
- asp通过JMAIL实现通用发送函数
在ASP中用EasyMailObject组件处理Exchange邮件源代码(1)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 112 ::
收藏到网摘: n/a
<%@ 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/20091103093246_b534ba68236ba543ae44b22bd110a1d6.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="center" width="60">大小</td>
<td align="center" width="20">选择</td>
</tr>
<%for i= sd to ed%>
<tr>
<td align="center" width="20"><%=i%></td>
<%
fw="回复:"+replace(POP3.messages.item(i).subject,space(1),"_")
%>
<td width="100">
<%receiver=POP3.Messages.item(i).from%>
<%if POP3.Messages.item(i).fromaddr="" then%>
<a href="">
<%else
%>
<a href=# onClick=javascript:window.open('sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>','sendnew','width=600,height=480,scrollbars=yes');>
<%end if%>
<%if trim(receiver)="" then
response.write "匿 名</a>"%>
<%else%>
<a href=# onClick=javascript:window.open('sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>','sendnew','width=600,h
评论 (0) All
