If you have enabled the "Automatically check mail for misspelling" option in your mail preferences, you get a special spell check dialog box that allows you access to the dictionary and the "Cancel send" button. To get the same functionality from other databases, your form needs three reserved text fields:
$AutoSpell Sign Encrypt
"1" enables each field, "0" disables them. But each field must have a value.
Note: You need to send the UIdoc, not the backend doc, to get the dialog box.
If you do not set the Sign and Encrypt field, then you are presented with an additional dialog box to select if you want to sign or encrypt the message.
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc as NotesDocument Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document 'Do not send the back end docuemnt - if you uncomment the next line you will not get the dialog box 'call doc.Send(False) 'You have to send the uidoc Call uidoc.send Call uidoc.Close End Sub
Note: Clicking the "Cancel Send" button generates an "Operation stopped at your request" error which you can trap if required.
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member John Humphreys. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.