获取邮件列表

命令说明

获取Exchange邮箱中的邮件，以数组形式返回

命令原型

arrayRet = Exchange.GetMailMessages(strDomain ,strUserName ,strPassword ,strServer ,strEmailAutoDiscover ,strSharedMailBox ,strFolderName ,bUnreadOnly ,bMarkRead ,bAsHtml ,iTop)

命令参数

参数	必选	类型	默认值	说明
strDomain	True	string	""	要连接的AD域
strUserName	True	string	""	用于发送邮件的Exchange帐户
strPassword	True	string	""	用于发送邮件的Exchange帐户密码
strServer	True	string	""	Exchange服务器地址
strEmailAutoDiscover	True	string	""	使用该邮箱地址自动搜索服务器，服务器开启自动发现时有效
strSharedMailBox	True	string	""	链接至Exchange帐户的共享邮箱帐户
strFolderName	True	string	"inbox"	需要获取的邮箱文件夹，如"收件箱"、"草稿"、"已发送邮件"等文件夹
bUnreadOnly	True	boolean	True	是否只获取未读邮件
bMarkRead	True	boolean	True	是否将获取的未读邮件标记为已读
bAsHtml	True	boolean	False	是否html格式
iTop	True	number	0	指定获取邮件的数量，0为全部获取

返回结果

arrayRet，将命令运行后的结果赋值给此变量。

运行实例

/*********************************获取邮件列表**************************************
命令原型：
    arrayRet = Exchange.GetMailMessages(strDomain ,strUserName ,strPassword ,strServer ,strEmailAutoDiscover ,strSharedMailBox ,strFolderName ,bUnreadOnly ,bMarkRead ,bAsHtml ,iTop)
入参：
    strDomain--域。注：要连接的AD域
    strUserName--用户名。注：用于发送邮件的Exchange帐户
    strPassword--密码。注：用于发送邮件的Exchange帐户密码
    strServer--服务器地址。注：Exchange服务器地址
    strEmailAutoDiscover--自动发现地址。注：使用该邮箱地址自动搜索服务器，服务器开启自动发现时有效
    strSharedMailBox--共享邮箱地址。注：链接至Exchange帐户的共享邮箱帐户
    strFolderName--邮箱文件夹。注：需要获取的邮箱文件夹，如"收件箱"、"草稿"、"已发送邮件"等文件夹
    bUnreadOnly--未读邮件。注：是否只获取未读邮件
    bMarkRead--标记为已读。注：是否将获取的未读邮件标记为已读
    bAsHtml--html格式。注：是否html格式
    iTop--邮件数量。注：指定获取邮件的数量，0为全部获取
出参：
    arrayRet--函数调用的输出保存到的变量。
注意事项：
    无
********************************************************************************/
Dim arrayRet = ""
arrayRet = Exchange.GetMailMessages("" ,"" ,"" ,"" ,"" ,"" ,"inbox" ,True ,True ,False ,0)
TracePrint(arrayRet)