☰

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

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010 formatting macros
Макрос Outlook для изменения «набора стилей» при ответе

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

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

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

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

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

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

решение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

Связанный контент