LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsDeleted property
This script checks each document in a collection to see if it has been deleted.

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