Domino中代理实现删除某一用户发错的所有邮件

'删除某一用户发错的所有邮件(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

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4