Alle Mails im HTML Format beantworten

Dim WithEvents mExplorer As Explorer
Dim WithEvents mInspectors As Inspectors
Dim WithEvents mItem As MailItem

Private Sub Application_Startup()
    Set mExplorer = Application.ActiveExplorer
    Set mInspectors = Application.Inspectors
End Sub

Private Sub mInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.EntryID = "" Then  
        Inspector.CurrentItem.BodyFormat = olFormatHTML
    End If
End Sub

Private Sub mExplorer_InlineResponse(ByVal Item As Object)
    If Item.BodyFormat <> olFormatHTML Then
        Item.BodyFormat = olFormatHTML
    End If
End Sub

ActiveInspector.CurrentItem.BodyFormat = olFormatHTML