例: TopLevelEntryCount property

次のエージェントは、現在のデータベースですべてのビューの最上位エントリの数を取得します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim tlec As Long
  Dim views As Variant
  Set db = session.CurrentDatabase
  views = db.Views
  Forall view In views
    tlec = view.TopLevelEntryCount
    If tlec < 0 Then
      tlec = tlec + 65536
    End If
    Messagebox "Top level count = " & tlec,, view.Name
  End Forall
End Sub