Examples: Count property (NotesViewEntryCollection - LotusScript)

This script displays the number of entries in the Manufacturer category in the By Category view.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set vc = view.GetAllEntriesByKey("Manufacturer")
Messagebox vc.Count