Examples: IsCalendar property

This example displays whether each view in the current database is a calendar view or a standard outline view.

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