Hi,
What you could try is this:
-create a reference to the Microsoft Excel 10.0 Object Libary (Tools>References)
ActiveDocument.SendMail
Excel.Application.Sendkeys "
[email protected]" , wait 'your email address
Excel.Application.Sendkeys "%S" ' alt S to send