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

See Also

QuerySend event

Glossary