LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Forall view In db.Views If view.IsCalendar Then Messagebox "Calendar view",, view.Name Else Messagebox "Standard outline view",, view.Name End If End Forall
See Also