Как очистить все форматирование из основного текста в Outlook

Question

Я нигде не нашел этот вопрос, поэтому не смогу, если это вообще возможно, потому что мы не можем записать макрос в Outlook.

Но я хотел бы удалить все форматирование текста в своем электронном письме, на которое я отвечаю, макросом в Outlook.

Поскольку я использую olReply.HTMLBody и собираю все тело с Loop и некоторыми if и elses, я не смог отформатировать тело в нем.

Пример: Очистить все форматирование текста - Outlook

Спасибо!

Answer 1

Я не уверен, как выглядит ваш код, но вот быстрый пример использования Метод ClearFormatting Убедитесь, что вы нажимаете Ответить или Ответить всем и выбираете текст, который вы пытаетесьотформатировать и запустить код

Option Explicit
Public Sub Exmple()
    Dim wDoc As Word.Document
    Dim rngSel As Word.selection

    If Application.ActiveInspector.EditorType = olEditorWord Then
        Set wDoc = Application.ActiveInspector.WordEditor ' use WordEditor
        Set rngSel = wDoc.Windows(1).selection ' Current selection

        rngSel.ClearFormatting

    End If

    Set wDoc = Nothing
End Sub