如何利用VBS控制lotus notes删除服务器上指定邮件

问题描述

需要对多台邮件服务器上所有的用户查询指定的邮件进行遍历删除。。 Set aNotes = CreateObject("Notes.NotesSession")  Set aDataBase = aNotes.GetDatabase("", "")  Set aDC = aDatabase.Search("@Contains(Subject;""test"")", Nothing, 0)  Set aDoc = aDC.GETFIRSTDOCUMENT()   Call aDC.RemoveAll(True)  Set aNotes = Nothing  Set aDatabase = Nothing  Set aDC = Nothing  Set aDoc = Nothing  Set dt = Nothing

解决方案

解决方案二：
1）如果你的服务器和客户端是8.0以上版本，而且你是邮件的发送者，有个新功能“召回邮件(RecallMessage)...”就可以实现你的需求，它甚至可以召回已经被读取的邮件.2)如果必须写代码，这个需求必须包含两层循坏：外循环=》多台邮件服务器中的一台内循环=》打开这台服务器上的一个邮件数据库:Set aDataBase = aNotes.GetDatabase("servername", "maildbfilepath")Set aDC = aDatabase.Search("@Contains(Subject;""test"")", Nothing, 0)  Set aDoc = aDC.GETFIRSTDOCUMENT()  Call aDC.RemoveAll(True)《=内循环《=外循环