LOTUSSCRIPT/COM/OLE CLASSES

Examples: UpdateAll method
This script displays the subject of each document corresponding to an entry in a view entry collection and then marks all of the documents as processed by the agent.

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")
 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

See Also