Examples: MarkAllRead method (NotesViewEntryCollection - LotusScript®)

This agent displays the number of unread documents in a view, marks them all as read, then displays the new number of unread documents in the view.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vec As NotesViewEntryCollection
  Set db = session.CurrentDatabase
  Set view = db.GetView("All")
  view.AutoUpdate = False
  Set vec = view.GetAllUnreadEntries()
  Messagebox vec.Count,, "Original unread documents"
  Call vec.MarkAllRead()
  Set vec = view.GetAllUnreadEntries()
  Messagebox vec.Count,, "Unread documents after MarkAllRead"
End Sub