移动邮件

命令说明

将指定的邮件移动至指定的邮箱文件夹，移动成功返回true,移动失败返回false

命令原型

bRet = IMAP.MoveMail(objIMAP,sFolder,objMail)

命令参数

参数	必选	类型	默认值	说明
objIMAP	True	expression	objIMAP	由"连接邮箱"命令返回的可操控连接对象
sFolder	True	string	""	邮件消息将被移至其中的邮箱文件夹
objMail	True	expression	objMail	待移动的邮件消息对象

返回结果

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

运行实例

/*********************************移动邮件***************************************
命令原型：
    bRet = IMAP.MoveMail(objIMAP,sFolder,objMail)
入参:
    objIMAP--由"连接邮箱"命令返回的可操控连接对象
    sFolder--邮件消息将被移至其中的邮箱文件夹
    objMail--待移动的邮件消息对象
出参:
    bRet--命令运行后的结果
注意事项:
    邮箱使用完后及时关闭连接
**********************************************************************************/
Dim objIMAP,arrayRet,bRet

// 连接邮箱
objIMAP = IMAP.Connect("imap.qq.com","***@qq.com","*****",143,false,"***@qq.com")
// 获取邮件列表
arrayRet = IMAP.GetMailList(objIMAP,"收件箱",5,false,false,"")
// 移动第一封邮件到其他文件夹
bRet = IMAP.MoveMail(objIMAP,"其他文件夹",arrayRet[0])
TracePrint bRet

// 断开邮箱连接
IMAP.Close(objIMAP)

可视化样例