LOTUSSCRIPT /COM/OLE のクラス

例:MarkAllRead メソッド
このエージェントは、ビューのすべての未読文書の総数を取得し、未読文書のすべてに既読のマークを付け、次にビューの未読文書の新しい数をカウントします。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim nav As NotesViewNavigator
 Set db = session.CurrentDatabase
 Set view = db.GetView("By Category")
 view.AutoUpdate = False

REM Create navigator for unread documents and get count
 Set nav = view.CreateViewNavFromAllUnread()
 Messagebox nav.Count,, "Number of unread entries"

 REM Mark all documents read and count again
 Call nav.MarkAllRead()
 Set nav = view.CreateViewNavFromAllUnread()
 Messagebox nav.Count,, "Number of unread entries"

End Sub