文件名称：domino代理 删除.txt
文件大小：674B
文件格式：TXT
更新时间：2022-10-01 03:57:12
domin
%REM Agent agtShanChu Created 2019-8-24 by admin/smartdot Description: Comments for Agent %END REM Option Public Option Declare Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim vw As NotesView Dim doc As NotesDocument Dim curDoc As NotesDocument Dim docs As NotesDocumentCollection Dim stytest As String Dim icount As Integer Dim key As String Dim key1 As String On Error GoTo errHdl Set db = s.Currentdatabase Set vw = db.Getview("vwDemo") Set curDoc = s.Documentcontext MsgBox 111111 key = Trim(curDoc.fldMingZi(0)) MsgBox "姓名=" & key MsgBox 222222 Set docs = vw.GetAllDocumentsByKey(key, True) Set doc = docs.Getfirstdocument() MsgBox CStr(docs.Count) MsgBox 333333 Call doc.Remove(true) MsgBox 44444 'Call docs.Removeall(Force) 'Call docs.Putallinfolder("") errHdl: End Sub