例: QuerySend event

次の QuerySend イベントは、文書を送信するかどうかをユーザーに確認します。

Sub Querysend(Source As Notesuidocument, _
Continue As Variant)
  Dim answer As Integer
  answer = Messagebox("Do you really want to send this?", _
  MB_YESNO, Source.FieldGetText("Subject"))
  If(answer = IDYES) Then
    Continue = True
  Else
    Continue = False
  End If
End Sub