删除邮件

命令说明

删除指定邮件

命令原型

IMAP.DeleteMail(objIMAP,objMail)

命令参数

参数	必选	类型	默认值	说明
objIMAP	True	expression	objIMAP	由"连接邮箱"命令返回的可操控连接对象
objMail	True	expression	objMail	邮件消息对象

运行实例

/*********************************删除邮件***************************************
命令原型：
    IMAP.DeleteMail(objIMAP,objMail)
入参:
    objIMAP--由"连接邮箱"命令返回的可操控连接对象
    objMail--邮件消息对象
注意事项:
    邮箱使用完后及时关闭连接
**********************************************************************************/
Dim objIMAP,mailList
// 连接邮箱
objIMAP = IMAP.Connect("imap.qq.com","***@qq.com","*****",143,false,"***@qq.com")

// 删除邮件
mailList = IMAP.GetMailList(objIMAP,"收件箱",1,false,false,"")
IMAP.DeleteMail(objIMAP,mailList[0])

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

可视化样例