The following should attach your document to Outlook Express

Option Explicit 
 
Sub eMailActiveDocument() 
Dim OL  As Object 
Dim EmailItem  As Object 
Dim Doc  As Document 
Application.ScreenUpdating = False 
Set OL = CreateObject("Outlook.Application") 
Set EmailItem = OL.CreateItem(olMailItem) 
Set Doc = ActiveDocument 
Doc.Save 
With EmailItem 
     .Subject = "Insert Subject Here" 
     .Body = "Insert message here" & vbCrLf & _ 
     "Line 2" & vbCrLf & _ 
     "Line 3" 
     .To = "User@Domain.Com" 
     .Importance = olImportanceNormal 'Or olImprotanceHigh Or olImprotanceLow
     .Attachments.Add Doc.FullName 
     .Send 
End With 
Application.ScreenUpdating = True 
Set Doc = Nothing 
Set OL = Nothing 
Set EmailItem = Nothing 
End Sub