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