LOTUSSCRIPT/COM/OLE CLASSES
Sub Regiondoubleclick(Source As Notesuiview) Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase If db.CurrentAccessLevel >= ACLLEVEL_DESIGNER Then Messagebox Source.ViewAlias, , "Alias name of this view" End If End Sub
See Also