.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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