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

读取邮件主题和大小(maillist1.ASP)

<%@ LANGUAGE="VBSCRIPT" %>

<%

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

'这个文件列出所有邮件，并把邮件内容显示窗口置为空白窗口

'作者：awayeah

'邮箱：awayeah@163.net

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

%>

<%

if session("straccount")="" or session("strpassword")="" then

Response.write("

你尚未登录，请先退出登录!

")

Response.Write ("

")

Response.End

end if

%>

<%

'定义邮件服务器地址

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 "

连接错误: " + 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%>

<%session("msgcount")=POP3.Messages.Count%>

<%for i= sd to ed%>

字号: 小 中 大 | 推荐给好友

21/212>

-5 -3 -1 - +1 +3 +5

评分：0

我来说两句

内容:

发表评论

最新更新

• 优秀的百万级数据分页存储过程代... 7-28
• ASP网站远程客户实现EXCEL打印功... 7-28
• ASP中脚本执行顺序 7-28
• ASP程序中使用断开的数据记录集... 6-27
• 利用ASP发送和接收XML数据的处理... 6-27
• 用ASP+XMLHTTP编写一个天气预报... 6-27
• 学以致用 驳“ASP低能论”... 6-27
• ASP开发中存储过程应用全接触... 6-27
• 为自己的ASP网站系统构建一套标...(图) 6-27
• ASP中Request对象获取客户端数据... 6-27

编程库 | 交流论坛 | 快捷面板 | 站点地图 | 友情链接 | 空间列表 | 站点存档 | 联系我们

© 2006-2008 BCKU.NET

<% '分页处理 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 %> 你有<%=POP3.Messages.Count%>封邮件。
号	来自/回复	主题	日期	大小	选择