LOTUSSCRIPT/COM/OLE CLASSES
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