Not having seen the rest of your code, it is difficult to be specific, but let us assume that you have named the document e.g.
Code:
Dim oSource as document
Set oSource = ActiveDocument.
Then copy the oSource.range to the clipboard
and replace
Code:
oRng.Text = strBody
oRng.Font.Name = "Arial"
oRng.Font.Size = 10
with
to put the formatted document (minus header/footers which are not supported in mail messages) as the message body.