LOTUSSCRIPT/COM/OLE CLASSES


Examples: TopLevelEntryCount property
This agent gets the top level entry count for all the views in the current database.

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

See Also