Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim view As NotesUIView Dim category As Variant Set view = workspace.CurrentView category = view.CaretCategory Messagebox category End Sub
See Also