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