LOTUSSCRIPT/COM/OLE CLASSES
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
See Also