内容发布更新时间 : 2024/5/29 13:48:46星期一 下面是文章的全部内容请认真阅读。

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