LOTUSSCRIPT/COM/OLE CLASSES


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

See Also