LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim Session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Set db = session.CurrentDatabase Set collection = db.FTSearch("links",0) Set doc = collection.GetFirstDocument() Do While Not(doc Is Nothing) If doc.IsDeleted Then Messagebox "This document has been deleted" Else Messagebox doc.Subject(0) & _ " has not been deleted" End If Set doc = collection.GetNextDocument(doc) Loop End Sub
See Also