LOTUSSCRIPT /COM/OLE のクラス

例: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

関連項目