获取邮件列表
命令说明
获取邮箱文件夹中的邮件列表,返回为一个数组,数组中的每一项为邮件消息对象
命令原型
arrayRet = IMAP.GetMailList(objIMAP,sFolder,iNum,bOnlyunread,bMarkread,sDecoding)
命令参数
参数 | 必选 | 类型 | 默认值 | 说明 |
---|---|---|---|---|
objIMAP | True | expression | objIMAP | 由"连接邮箱"命令返回的可操控连接对象 |
sFolder | True | string | "收件箱" | 将从其中检索邮件消息的邮箱文件夹,如"收件箱"、"草稿"、"已发送邮件"等文件夹 |
iNum | True | number | 30 | 从列表顶部开始获取的邮件数量,设置0为获取邮箱文件夹中的所有邮件 |
bOnlyunread | True | boolean | True | 指定是否只检索未读邮箱消息,默认为是 |
bMarkread | True | boolean | False | 指定是否将已检索的邮箱消息标记为已读,默认为否 |
sDecoding | True | string | "" | 当邮件对象的附件名称等出现中文乱码时,需要设置正确的字符集进行解码,如"gb2312",否则保持默认值为空字符串即可 |
返回结果
arrayRet,将命令运行后的结果赋值给此变量。
运行实例
/*********************************获取邮件列表***************************************
命令原型:
arrayRet = IMAP.GetMailList(objIMAP,sFolder,iNum,bOnlyunread,bMarkread,sDecoding)
入参:
objIMAP--由"连接邮箱"命令返回的可操控连接对象
sFolder--将从其中检索邮件消息的邮箱文件夹,如"收件箱"、"草稿"、"已发送邮件"等文件夹
iNum--从列表顶部开始获取的邮件数量,设置0为获取邮箱文件夹中的所有邮件
bOnlyunread--指定是否只检索未读邮箱消息,默认为是
bMarkread--指定是否将已检索的邮箱消息标记为已读,默认为否
sDecoding--当邮件对象的附件名称等出现中文乱码时,需要设置正确的字符集进行解码,如"gb2312",否则保持默认值为空字符串即可
出参:
arrayRet--命令运行后的结果
注意事项:
邮箱使用完后及时关闭连接
**********************************************************************************/
Dim objIMAP,arrayRet
// 连接邮箱
objIMAP = IMAP.Connect("imap.qq.com","***@qq.com","*****",143,false,"***@qq.com")
// 获取邮件列表
arrayRet = IMAP.GetMailList(objIMAP,"收件箱",5,true,false,"")
Traceprint(arrayRet)
// 断开邮箱连接
IMAP.Close(objIMAP)