LOTUSSCRIPT/COM/OLE CLASSES
(Declarations) Dim deleteCount As Integer
Sub Postopen(Source As Notesuidatabase) deleteCount = 0 End Sub
Sub Querydocumentdelete(Source As Notesuidatabase, _ Continue As Variant) If Continue Then deleteCount = deleteCount + Source.Documents.Count End If End Sub
Sub Querydocumentundelete(Source As Notesuidatabase, _ Continue As Variant) If Continue Then deleteCount = deleteCount - Source.Documents.Count End If End Sub
Sub Postdocumentdelete(Source As Notesuidatabase) Messagebox Source.Documents.Count _ & " deleted or marked for deletion" End Sub
Sub Queryclose(Source As Notesuidatabase, Continue As Variant) Messagebox deleteCount & " documents deleted",, _ "Net deletions" End Sub
See Also