例: MarkAllUnread 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.MarkAllUnread()
End Sub