... oder dieses script "aufbohren":
Sub Initialize
Dim db As NotesDatabase
Dim view As NotesView
Dim nav As NotesViewNavigator
Dim entry As NotesViewEntry
Dim count As Integer
Set db = New NotesDatabase( "", "Learning LotusScript.nsf" )
Set view = db.GetView( "By Category" )
Set nav = view.CreateViewNav( )
Set entry = nav.GetFirst
count = 0
' begin counting categories
' stop when there are no more categories
Do Until entry Is Nothing
count = count + 1
Set entry = nav.GetNextCategory( entry )
Loop
Messagebox "Number of categories = " & count,, "By Category"
End Sub
... stammt übrigens aus der designer-hilfe