EmailOptions.HTMLFidelity (Word)

Strips HTML tags used for opening HTML files in Word but not required for display. Possible return values are wdEmailHTMLFidelityHigh - Leaves HTML intact, wdEmailHTMLFidelityLow - Removes all HTML tags that do not affect how a message displays, wdEmailHTMLFidelityMedium - Not supported.

Sub HTMLEmail() 
 Application.EmailOptions _ 
 .HTMLFidelity = wdEmailHTMLFidelityHigh 
End Sub