Email automation in Word

[mikechambers]

I am trying to write a very simple sub routine that will email a Word 2003 document in the body of the email, keeping all formatting. If I choose File, Send To, Mail Recipient, it does exactly what I want, but I am running into some problems trying to automate it. I have been searching everywhere, and either the code I find just extracts it from the clipboard and loses the formatting, or it was way more code than I know is needed. I am pretty fluent using VBA in Excel, but this seems a little different. Any ideas?

 

[nirvana_]

use this.

Sub SendThisDocument()
    Options.SendMailAttach = False
    ActiveDocument.SendMail
End Sub