응답시 "스타일 세트"를 변경하는 Outlook 매크로

나는 다음과 같은 이슈를 따라야한다 : Outlook 2010 또는 일반 Outlook - HTML 형식의 전자 메일로 회신 할 때 수신 된 전자 메일에서 일부 서식이 사용됩니다.

종종 단락 설정이 내 템플릿과 다릅니다. 표준 설정으로 형식을 변경하는 간단한 방법을 찾았습니다.

열린 전자 메일에서 리본을 선택하십시오.
'텍스트 서식 지정'탭에서 오른쪽의 '스타일 변경'을 클릭하고   "스타일 세트", "Word 2003"선택

이제 "reply", "reply all"또는 "forward"를 선택할 때 자동으로 해당 작업을 수행하는 매크로를 만들고 싶습니다.

불행히도 Outlook에는 매크로 레코더가 없습니다. 비슷한 것을 발견했지만 응답이 전혀 없습니다. Outlook 2007 : 회신 및 전달에서 기본 서식을 사용하지 못함
또는이 매크로는 작동하지 않습니다. http://www.codetwo.com/admins-blog/set-email-reply-format-automatically/

GUI에서 위의 단계를 수행하는 매크로 코드는 무엇입니까?

필요한 스타일 세트를 적용한 다음 기본값으로 설정 밑바닥에 스타일 변경 메뉴.

또는 다음과 같이 할 수 있습니다.

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