LOTUSSCRIPT/COM/OLE CLASSES
Examples: MarkAllRead method
This agent displays the number of read documents in a view, marks all documents read, then displays the new number of read 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.GetAllReadEntries()
Messagebox vec.Count,, "Original read documents"
Call view.MarkAllRead()
Set vec = view.GetAllReadEntries()
Messagebox vec.Count,, "Read documents after MarkAllRead"
End Sub
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario