email from word as attachment-

[Darren]

Hi
i would like to know how to send from word to outlook an
activedocument (without saving) as attachment with VBA.
i've also to input : body, object,sentonbehalfofname

thanks
Darren

PS:below u can find a code but it's incomplete (no
attachment selected

Sub email()
Set myOutlook = CreateObject("Outlook.Application")
Set mymail = myOutlook.CreateItem(olMailItem)
mymail.Subject = "Fac simile"
mymail.sentonbehalfofname = " "
mymail.Body = ""
mymail.Display
End Sub