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
See Also