Pasteandformat outlook

[nend]

I've made a script that copy a word document to the clipboard and paste it into outlook mail body.

With this script it loose al the layout from the word document.

I've found on the internet that you can do this with "pasteandformat" but I don't have any idea how to do this.

$outlook = ObjCreate("Outlook.Application")

$Word = ObjCreate("Word.Application")

$Word.Documents.Open(@scriptdir & "\test.DOC")

$Word.Selection.WholeStory

$Word.Selection.Copy

$objMail = $Outlook.Application.CreateItem(0)

$objMail.Recipients.add("test@test.nl")

$objMail.Subject = "Test"

$objMail.Body = ClipGet()

$objMail.Display