例: IsDeleted property

次のスクリプトは、コレクションの各文書が削除されていないかどうか確認します。

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