Microsoft Outlook에서 글꼴 유형을 변경하기위한 바로 가기 또는 매크로

Windows의 Outlook에서 글꼴을 변경하기위한 키보드 단축키가 있습니까? 기술적 이유로 Calibri와 Courier를 계속 번갈아 가며 매번 글꼴 대화 상자를 클릭하면 매우 지루합니다. Ctrl + Space를 사용하여 기본 글꼴 (Calibri) 글꼴로 변경할 수 있음을 알고 있습니다.

바로 가기가 없으면 다른 사람이 글꼴을 전환하는 매크로를 만들 수 있습니까? 매크로에 단축키를 지정할 수 있다고 생각합니까?

(techie007의 답변이 Outlook 2010에서 작동하지 않았습니다)

이 매크로 ( http://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/ 에서 수정 )는 다음을 수행합니다.

Sub SetCodeFont()
    Dim objItem As Object
    Dim objInsp As Outlook.Inspector

    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objSel As Word.Selection
    On Error Resume Next

    Set objItem = Application.ActiveInspector.CurrentItem
    If Not objItem Is Nothing Then
        If objItem.Class = olMail Then
            Set objInsp = objItem.GetInspector
            If objInsp.EditorType = olEditorWord Then
                Set objDoc = objInsp.WordEditor
                Set objWord = objDoc.Application
                Set objSel = objWord.Selection
                objSel.Font.Name = "Consolas"
            End If
        End If
    End If

    Set objItem = Nothing
    Set objWord = Nothing
    Set objSel = Nothing
    Set objInsp = Nothing
End Sub

그런 다음 VBA 편집기에서로 이동하여을 Tools > References선택하십시오 Microsoft Word 14.0 Object Library.

이제 매크로의 단축키를 만들려면 다음과 같이 빠른 실행 도구 모음에 추가하십시오.

1. 새 메일 메시지를 엽니 다
2. 빠른 실행 도구 모음 (일반적으로 창 상단에 있음)에서 작은 드롭 다운 화살표를 클릭하고 "추가 명령 ..."을 선택하십시오.

3. Outlook 옵션 대화 상자가 열리면 "다음에서 명령 선택 :"드롭 다운에서 "매크로"를 선택하십시오.

4. 목록에서 SetCodeFont 매크로를 선택하고 "추가 >>"를 누릅니다.
5. 매크로 버튼이 이제 빠른 실행 도구 모음에 나타납니다.

매크로 하이라이트에게 약간의 이메일에서 텍스트를 눌러 실행하려면 빠른 실행 도구 모음에 매크로의 위치입니다. 예를 들어, 매크로가 도구 모음의 첫 번째 단추 인 경우이를 사용하여 매크로 를 호출하십시오.Alt + <Num><Num>Alt + 1

그냥 참고로,이 글꼴 선택에 초점을 맞 춥니 키 순서는 다음과 같습니다 Alt, H, F,F