Skrót lub makro do zmiany typu czcionki w Microsoft Outlook

Czy istnieje skrót klawiaturowy do zmiany czcionki w programie Outlook w systemie Windows? Muszę na przemian przełączać się między Calibri i Courier ze względów technicznych, a klikanie okna dialogowego czcionek za każdym razem staje się bardzo nudne. Wiem, że mogę użyć Ctrl + Spacja, aby zmienić wszystko na domyślną czcionkę (Calibri).

Jeśli nie ma skrótu, czy ktoś mógłby mi pomóc w utworzeniu makra do przełączania czcionek? Wyobrażam sobie, że mogę przypisać dowolny skrót do makra?

(Odpowiedź techie007 nie działała dla mnie w programie Outlook 2010)

To makro (zaadaptowane z 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

Następnie w Edytorze VBA przejdź do Tools > Referencesi wybierz Microsoft Word 14.0 Object Library.

Teraz, aby utworzyć skrót klawiaturowy dla makra, dodaj go do paska narzędzi szybkiego dostępu w następujący sposób:

1. Otwórz nową wiadomość e-mail
2. Kliknij małą strzałkę rozwijaną na pasku narzędzi szybkiego dostępu (zwykle znajdującą się w górnej części okna) i wybierz „Więcej poleceń ...”

3. Otworzy się okno dialogowe Opcje programu Outlook, a następnie wybierz „Makra” z menu „Wybierz polecenia z:”

4. Wybierz makro SetCodeFont z listy i naciśnij „Dodaj >>”
5. Przycisk makro pojawi się teraz na pasku narzędzi szybkiego dostępu

Aby uruchomić makro, zaznacz tekst w wiadomości e-mail i naciśnij Alt + <Num>gdzie <Num>jest pozycja makra na pasku narzędzi Szybki dostęp. Na przykład, jeśli makro jest pierwszym przyciskiem na pasku narzędzi, użyj go, Alt + 1aby je wywołać.

Wystarczy FYI, to jest klucz sekwencja skupić selektora czcionki: Alt, H, F,F