LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目