Макрос Outlook для изменения "набора стилей" при ответе

Question

У меня возникает следующая проблема: в Outlook 2010 - или Outlook в целом - когда вы отвечаете на электронное письмо в формате HTML, из полученного электронного письма используется некоторое форматирование.

Часто настройки абзаца отличаются от моего шаблона. Я нашел простой способ изменить форматирование на мои стандартные настройки:

В открытом письме на ленте выберите:
Вкладка "Формат текста", нажмите "Изменить стили" справа, выберите "Набор стилей", выберите "Word 2003"

Теперь я хотел бы создать макрос, который выполняет эту задачу автоматически, когда я выбираю "ответить", "ответить всем" или "переслать".

К сожалению, в Outlook нет средства записи макросов :( Я нашел что-то похожее, но ответа нет вообще: Outlook 2007: при ответе и пересылке не удается использовать форматирование по умолчанию
Или этот макрос здесь не работает: http://www.codetwo.com/admins-blog/set-email-reply-format-automatics/

Каким будет код макроса для выполнения вышеуказанных шагов в графическом интерфейсе?

Answer 1

Вы можете просто применить требуемый набор стилей, а затем выбрать « Установить по умолчанию» в нижней части меню « Изменение стилей» .

Или вы можете сделать что-то вроде этого:

Public WithEvents OutlookInspectors As Outlook.Inspectors
Public WithEvents OutlookInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set OutlookInspectors = Application.Inspectors
End Sub

Private Sub OutlookInspectors_NewInspector(ByVal Inspector As Inspector)
    Set OutlookInspector = Inspector
End Sub

Private Sub OutlookInspector_Activate()
    On Error Resume Next
    Dim Item As MailItem

    If Not OutlookInspector Is Nothing Then
        Set Item = OutlookInspector.CurrentItem
        If Not Item Is Nothing And Item.Size = 0 Then
            OutlookInspector.WordEditor.ApplyQuickStyleSet "Word 2003"
        End If
    End If

    Set OutlookInspector = Nothing
End Sub