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

関連項目

CaretCategory プロパティ

用語集