LOTUSSCRIPT/COM/OLE CLASSES
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