What are you using as the "fillable" field? If you use as content controls titles say "Author" then you could use:
Code:
sMsgBody = sMsgBody & "Please find attached my completed referral form for a woman to your services" & vbCr & vbCr
sMsgBody = sMsgBody & "Kind Regards," & vbCr
sMsgBox = sMsgBody & Doc.SelectContentControlsByTitle("Author").Item(1).Range.Text
.body = sMsgBody