Word Changes Email Message format to Plain Text

[elisart]

Office 2007.

I've set my email format to HTML. When I email a word doc from the Word
GUI, the Outlook message opens with the doc attached, but the message format
is Plain Text, which, among other things, ruins my formatted signature.

This is a new laptop (Windows 7) and Office 2007 install. I have four other
systems with Office 2007 and do not experience this problem, including
another Windows 7 system, XP, and Vista.

 

[Graham Mayor]

Word is not an e-mail application and HTML format and Word formats are
entirely different, so there will inevitably be a compromise. Word only
provides the means to send a document as attachment - but if you want to
send a document as the body of an e-mail (subject to the above formatting
anomalies) you can do so with a macro. You will need to set a reference to
the Microsoft Outlook 12 Object Library from the vba editor tools >
references for it to work.

Sub Send_As_HTML_EMail()
Dim bStarted As Boolean
Dim oOutlookApp As Object
Dim oItem As Object
Dim oRng As Range
Set oRng = ActiveDocument.Range
oRng.Copy
'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
'Outlook wasn't running, start it from code
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(0)
With oItem
.BodyFormat = olFormatHTML
.Display
Set objDoc = .GetInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.Paste
.to = ""
End With
If bStarted Then
'If we started Outlook from code, then close it
oOutlookApp.Quit
End If
'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>