Examples: MarkAllUnread method (NotesDocumentCollection - LotusScript)

This example marks all the documents returned by a full-text search as unread.

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