☰

응답 시 "스타일 세트"를 변경하는 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/

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

답변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

관련 정보