LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目