By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
This function is used to validate the RTF for attachments/Embedded objects/Any text before the document is being saved.
Sub Querysave(Source As Notesuidocument, Continue As Variant) On Error Goto Err_Handler Call Source.GoToField("RTF") Call Source.SelectAll Call Source.Copy 'When the RTF field is empty and Copy command is executed on the field, Notes
generates an error Call Source.DeselectAll Exit Sub Err_Handler: If Err=4407 Then Msgbox "RTF field is empty", 48, "Validation Error" Continue=False Resume GoToExit End If GoToExit: End Sub