Sub Querysave(Source As Notesuidocument, Continue As Variant)
Continue=True
как здесь проверить , что в поле не пустое и только тогда проверять?
Set Source=UpdateUIdoc(Source, {body})
If HasAttachmentName(Source.Document, {*.docx}) Then Msgbox {Attach is not valid}:Continue=False:Exit Sub
Source.Document.Save True, False
Call PostSave(Source)
End Sub