例: UpdateAll method (NotesViewEntryCollection - LotusScript®)

次のスクリプトは、ビューエントリコレクションのエントリに対応する各文書の件名を表示し、エージェントによる処理が行われたものとしてすべての文書にマークをつけます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim entry As NotesViewEntry
  Dim vc As NotesViewEntryCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  view.AutoUpdate = False
  Set vc = view.AllEntries
  Set entry = vc.GetFirstEntry()
  While Not (entry Is Nothing)
    Set doc = entry.Document
    Messagebox doc.Subject(0)
    Set entry = vc.GetNextEntry(entry)
  Wend
  Call vc.UpdateAll
End Sub