例: ViewName property

次の PostOpen イベントは、ビューの名前を含むメッセージを表示します。

Sub Postopen(Source As Notesuiview)
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Set db = s.CurrentDatabase
  If db.CurrentAccessLevel <> ACLLEVEL_MANAGER Then
    Messagebox "You must be Manager to use this view",, _
    Source.ViewName
    Call Source.Close
  End If
End Sub