.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: MarkRead method
This agent displays the number of unread documents in a view, marks the first document as read, 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
  Dim ve As NotesViewEntry
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set view = db.GetView("All")
  Set vec = view.GetAllUnreadEntries()
  Messagebox vec.Count,, "Original unread documents"
  Set ve = vec.GetFirstEntry()
  Set doc = ve.Document
  Call doc.MarkRead()
  Set vec = view.GetAllUnreadEntries()
  Messagebox vec.Count,, "Unread documents after MarkRead"
End Sub

See Also