LOTUSSCRIPT/COM/OLE CLASSES
Dim workspace As New NotesUIWorkspace Dim view As NotesUIView Set view = workspace.CurrentView Messagebox view.ViewName
See Also