Send word document as email with formatting preserved.

I was using this piece of VB to send use a word document as a template and send an email.
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
    'Set the recipient for the new email
   .To = "recipient@mail.com"
    'Set the recipient for a copy
    .CC = "recipient2@mail.com"
    'Set the subject
    .Subject = "New subject"
    'The content of the document is used as the body for the email
    .Body = ActiveDocument.Content
    .Send
End With

My problem is, under this method, I lose all the formatting like bold and underlined fonts. Is there any way to adjust this without losing the formatting?
Thanks,
Chris