例: CaretCategory property

次のビューアクションは、現在の文書に対応するカテゴリを表示します。

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