例: MarkAllUnread method (NotesViewEntryCollection - LotusScript®)

このエージェントは、ビューの既読文書の数を表示し、既読文書のすべてに未読のマークを付け、次にビューの既読文書の新しい数を表示します。

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.GetAllReadEntries()
  Messagebox vec.Count,, "Original read documents"
  Call vec.MarkAllUnread()
  Set vec = view.GetAllReadEntries()
  Messagebox vec.Count,, "Read documents after MarkAllUnread"
End Sub