例: MarkRead method

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

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vec As NotesViewEntryCollection
  Dim ve As NotesViewEntry
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set view = db.GetView("All")
  Set vec = view.GetAllUnreadEntries()
  Messagebox vec.Count,, "Original unread documents"
  Set ve = vec.GetFirstEntry()
  Set doc = ve.Document
  Call doc.MarkRead()
  Set vec = view.GetAllUnreadEntries()
  Messagebox vec.Count,, "Unread documents after MarkRead"
End Sub