'删除某一用户发错的所有邮件（Subject:邮件标题，From：发件地址） Sub Initialize e:
MsgBox\代理发生错误，在第\+Cstr(Erl)+\行，原因：\+Error EndSub
Ifdocs.Count>0Then
Calldocs.Removeall(True) i = i + 1
Set docs = downdb.Search(query,Nothing,0)
Setdowndb = s.GetDatabase(\,codedb.FilePath) Ifdowndb.IsOpenThen
Setdb = s.CurrentDatabase i = 0
Set directory = NewNotesDbDirectory(\ )
query = |Form=\& Subject=\发错的邮件标题\& From=\ Setcodedb = directory.GetFirstDatabase( DATABASE ) WhileNotcodedbIsNothing
IfInStr(codedb.FilePath,\)>0Then OnErrorGoTo e
Dim s AsNewNotesSession
Dim directory AsNotesDbDirectory DimdbAsNotesDatabase DimcodedbAsNotesDatabase DimdowndbAsNotesDatabase DimrepdbAsNotesDatabase Dim query AsString
Dim docs AsNotesDocumentCollection Dim i AsInteger
EndIf
EndIf
EndIf
Setcodedb= directory.GetNextDatabase
Wend
MsgBox\共删除\+CStr(i)+\个人邮箱数据\ ExitSub