Examples: Count property (NotesViewNavigator - LotusScript)

This agent gets a count of all entries in a view plus counts of all entries in each category.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim nav As NotesViewNavigator
  Dim nav2 As NotesViewNavigator
  Dim entry As NotesViewEntry
  Set db = session.CurrentDatabase
  Set view = db.GetView("By category")
  view.AutoUpdate = False
  REM Create navigator for entire view and get count
  Set nav = view.CreateViewNav()
  Messagebox nav.Count,, "Number of entries in view"
  REM Get each entry that is a category
  Set entry = nav.GetFirst()
  While Not(entry Is Nothing)
    If entry.IsCategory Then
      REM Do not process uncategorized
      If Not Isempty(entry.ColumnValues) Then
        cat$ = entry.ColumnValues(0)
        REM Create navigator for category and get count
        Set nav2 = view.CreateViewNavFromCategory(cat$)
        Messagebox nav2.Count & " entries",, cat$
      End If
    End If
    Set entry = nav.GetNext(entry)
End Sub