fired only if there are no attachments and as well as no text.
Write this scrip in the QuerySave event of the form
'Body is the name of the Rich Text field
On Error Goto ErrSub
'This error number will be generated when you
'try to copy the content of the empty field
If Err = 4407 Then
Msgbox "Please enter values for the body field",48,"Error"