例: ViewInheritedName

次のエージェントは、現在のビューで継承された名前を表示します。

Sub Initialize
  Dim ws As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Dim view As NotesView
  Set uiview = ws.CurrentView
  Set view = uiview.View
  vin$ = view.ViewInheritedName
  If vin$ = "" Then vin$ = "None"
  Messagebox "Inherited name = " & vin$,, view.Name
End Sub