Examples: QuerySend event

This QuerySend event verifies that the user wants to send the document.

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