标题: 二次开发，读取某邮箱账号下的未读邮件数量？ [打印本页] 作者: axi 时间: 2008-7-1 12:54 标题: 二次开发，读取某邮箱账号下的未读邮件数量？ 已知该邮箱账号和密码，用哪个函数？
具体的ASP语法？
多谢作者: xmmaster 时间: 2010-3-31 21:40
dim ei
set ei = server.createobject("easymail.InfoList")
ei.LoadSizeInfo Session("wem")
... 进行各类方法及属性的调用 ...
set ei = nothing
====================
Property allNewMailCount As Long 所有新邮件数
Property DateEX_0 As Long 今天的邮件数
Property DateEX_1 As Long 昨天的邮件数
Property DateEX_2 As Long 前天的邮件数
Property DateEX_3 As Long 三天前至一周内的邮件数
Property DateEX_4 As Long 一周前至一个月内的邮件数
Property DateEX_5 As Long 一个月前至一年内的邮件数
Property DateEX_6 As Long 一年前的邮件数
Property delboxMailCount As Long 垃圾箱邮件数
Property delboxMailSize As Double 垃圾箱的邮件总长度
Property getMailsCount As Long 取当前邮箱的邮件数
Property inboxMailCount As Long 收件箱邮件数
Property inboxMailSize As Double 收件箱的邮件总长度
Property MaxSize As Double 邮箱的最大容量
Property newDelBoxMailCount As Long 垃圾箱的新邮件数
Property newInBoxMailCount As Long 收件箱的新邮件数
Property newOutBoxMailCount As Long 草稿箱的新邮件数
Property newSendBoxMailCount As Long 发件箱的新邮件数
Property outboxMailCount As Long 草稿箱邮件数
Property outboxMailSize As Double 草稿箱的邮件总长度
Property PerFolderCount As Long 私人文件夹的总数
Property SearchString As String 搜索字符串
Property sendboxMailCount As Long 发件箱邮件数
Property sendboxMailSize As Double 发件箱的邮件总长度
Property timeMode As Long 时间显示模式
====================
Sub getMailInfoEx(index As Long, idname, isread, priority, sendMail, sendName, subject, size, time, mailstate)
取一封邮件的简单信息（增强型）。
说明：
index 序号
idname 邮件名ID
isread 是否已阅
priority 优先状态
sendMail 发件地址
sendName 发件人名
subject 主题
size 长度
time 发信时间
mailstate 邮件状态作者: wyw308 时间: 2010-4-1 10:50
<title></title>
<head>
<meta http-equiv="refresh" content="600">
</head>
<body bgcolor="#e2edff">
<%
username = Session("wem")
dim ei
set ei = server.createobject("easymail.InfoList")
ei.LoadSizeInfo username
response.Write("<font color=red size='2'>"&ei.newInBoxMailCount&"</font>")
set ei = nothing
%>
</body>
