Setting format of an e-mail to HTML

[oleander]

Hi everyone,

I'm trying to do something that I think is kind of basic, but I'm new to VBA so please bear with me.

When I hit reply and the reply e-mail is still in the main Outlook pain, I want a button that will set the format of the e-mail to HTML. I have no clue if this is even remotely close or not, but it's not working:



Sub FormatHTML()
Dim myItem As Object
Set myItem = Application.ActiveInspector.CurrentItem
With myItem
.BodyFormat = olFormatHTML
End With
End Sub


If anyone could help out, I'd appreciate it! Thank you!

[gmayor]

Close :)


Sub SetHTML()
Dim olMsg As MailItem
On Error Resume Next
Set olMsg = ActiveExplorer.Selection.item(1)
olMsg.Display
olMsg.BodyFormat = olFormatHTML
olMsg.Close olSave
lbl_Exit:
Set olMsg = Nothing
Exit Sub
End Sub