例: MarkAllRead method (NotesDocumentCollection - LotusScript®)

この例では、フルテキスト検索によって戻されたすべての文書に既読のマークを付けます。

Sub Initialize
  Set session = New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim dc As NotesDocumentCollection

  Set dc = db.FTSearch("Business", 0)
  Call dc.MarkAllRead()
End Sub