Examples: CaretCategory property

This view action displays the category corresponding to the current document.

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