次のスクリプトは、現在のデータベースの [Work Schedule] カレンダービューでスケジュール競合チェックが有効であるかどうかを調べて表示します。
Dim session As New NoteSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("Work Schedule")
If view.IsConflict Then
Messagebox "Conflict checking is in effect."
Else
Messagebox "Conflict checking is not in effect."
End If