LOTUSSCRIPT/COM/OLE CLASSES
Examples: MarkAllUnread method
This agent displays the number of unread documents in a view, marks all documents unread, then displays the new number of unread documents in the view.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vec As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("All")
Set vec = view.GetAllUnreadEntries()
Messagebox vec.Count,, "Original unread documents"
Call view.MarkAllUnread()
Set vec = view.GetAllUnreadEntries()
Messagebox vec.Count,, "Unread documents after MarkAllUnread"
End Sub
Glossar
Ihre Kommentare zur
Hilfe
oder zur
Verwendbarkeit der Software
?
Hilfe zur Hilfe
Inhalt der gesamten Hilfe
Glossar