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

CaretCategory property

Glossary