Domino下通过vbs脚本删除指定主题邮件---脚本文件

On Error Resume Next

'数据库路径

folder ="\D$\IBM\Lotus\Domino\data\mail"

subject =Trim(InputBox("请输入邮件主题:","提示"))

'添加服务器地址,逗号隔开

serverArray=Array("192.168.220.11","192.168.220.12")

For i= LBound(serverArray) To UBound(serverArray)

mailFolder = "\\" & serverArray(i) & folder

Set fso = CreateObject("scripting.fileSystemObject")

Set folderObj = fso.GetFolder(mailFolder)

For Each file In folderObj.Files

names = Split(file.Name,".",-1)

Call DeleteSubjectDocument(serverArray(i),names(0),subject)

Next

Next

MsgBox "执行完成"

Sub DeleteSubjectDocument(server,user,subject)

On Error Resume Next

Dim aNotes

Dim aDatabase

Dim aDC

Dim aDoc

Dim i

Dim dt

Set aNotes = CreateObject("Notes.NotesSession")

' 获取服务器上指定数据库

Set aDataBase = aNotes.GetDatabase(server, "mail/" & user)

' 指定日期

' Set dt = aNotes.CREATEDATETIME("12/22/12")

' Set aDC = aDatabase.Search("@Contains(Subject;""test"")", dt, 0)

Set aDC = aDatabase.Search("@Contains(Subject;"""&subject&""")", Nothing, 0)

Call aDC.RemoveAll(True)

if err.Number >0 Then

WriteLog "server=" & server & ",user=" &user &"删除主题:"& subject &",info:数据库拒绝访问"

Else

WriteLog "server=" & server & ",user=" &user &"删除主题:"& subject &",info:操作完成"

End If

Set aNotes = Nothing

Set aDatabase = Nothing

Set aDC = Nothing

Set aDoc = Nothing

Set dt = Nothing

End Sub

Sub WriteLog(info)

logFolder = "c:\log"

Set fso = CreateObject("scripting.FileSystemObject")

If Not fso.FolderExists(logFolder) Then

fso.CreateFolder logFolder

End If

filepath=logFolder & "\mail_log.txt"

Set logFile = fso.OpenTextFile(filepath,8,True)

logFile.WriteLine Now() & ": " & info

logFile.Close

Set logFile = Nothing

Set fso = nothing

End Sub
本文出自 “高文龙” 博客，转载请与作者联系！