例: Views property

次のスクリプトは現在のデータベースのすべてのビューとフォルダの名前を表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim views As Variant
  Set db = session.CurrentDatabase
  views = db.Views
  Forall v In views
    Messagebox(  v.Name  )
  End Forall
End Sub

次のスクリプトは Views プロパティを使用して現在のデータベースのデフォルトのビューを検索し、view オブジェクトに割り当てます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim views As Variant
  Set db = session.CurrentDatabase
  views = db.Views
  Forall v In views
    If v.IsDefaultView Then
      Set view = v
      Exit Forall
    End If
  End Forall
  If view Is Nothing Then
    Messagebox "",, "No default view"
  Else
    Messagebox view.Name,, "Default view"
  End If
End Sub