A similar issue came up recently for sending formatted e-mails with Outlook
2007 and in theory at least it may work for you as long as you add the
Outlook object library to  your template. The macro creates an Outlook
message with the clipboard content as the body. If it works for you it would
be simple enough to add the code to copy the document content first. I did
find that the macro crashed Word is Outlook was not already open when run
onb my system. Others had more success. At least it may point a way forward,

Sub Send_Extract_As_EMail()
' send the document in an Outlook Email message
' 2007 Graham Mayor, Tony Jollans, Doug Robbins
' & Sue Mosher

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
Dim objDoc As Word.Document
Dim strEMail As String

strEMail = "<PR_EMAIL_ADDRESS>"
'Let the user choose the contact from Outlook
'And assign the email address to a variable

strEMail = Application.GetAddress("", strEMail, _
False, 1, , , True, True)
If strEMail = "" Then
   MsgBox "User cancelled or no address listed", , "Cancel"
End If

On Error Resume Next

'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")

'Outlook wasn't running, start it from code
If Err <> 0 Then
  Set oOutlookApp = CreateObject("Outlook.Application")
  bStarted = True
End If

'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
Set objDoc = oItem.GetInspector.WordEditor
   With oItem
       .To = strEMail
       .Subject = InputBox("Subject?")
       Selection.Copy
       objDoc.Range.Paste
       .Display
      End With

'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub