例: IsCalendar property

次の例は、現在のデータベース内の各ビューがカレンダービューであるか標準のアウトラインビューであるかを表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim views As Variant
  Set db = session.CurrentDatabase
  views = db.Views
  Forall view In views
    If view.IsCalendar Then
      Messagebox "Calendar view",, view.Name
    Else
      Messagebox "Standard outline view",, view.Name
    End If
  End Forall
End Sub