Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim uiview As NotesUIView
 Dim view As NotesView
 Dim nav As NotesViewNavigator
 Dim entry As NotesViewEntry
 Dim msg As String
 Set uiview = ws.CurrentView
 Set view = uiview.View
 If view.EntryCount = 0 Then
   Messagebox "No documents in view",, "View empty"
 Else
   Set nav = view.CreateViewNav
   Set entry = nav.GetFirst
   Do While Not(entry Is Nothing)
     msg = msg & entry.ColumnValues(0) & Chr(13)
     Set entry = nav.GetNextCategory(entry)
   Loop
   Messagebox msg,, "Categories"
 End If
End Sub

関連項目

EntryCount プロパティ

用語集