Sub Queryopen(Source As Notesuiview, Continue As Variant)
Dim view As NotesView
Set view = Source.View
If view.IsCalendar Then
If Messagebox ("Do you want to continue?", _
MB_ICONQUESTION, _
"Calendar view") = IDNO Then
Continue = False
End If
End If
End Sub