Verknüpfung oder Makro zum Ändern des Schrifttyps in Microsoft Outlook

Gibt es eine Tastenkombination zum Ändern der Schriftart in Outlook unter Windows? Ich muss aus technischen Gründen ständig zwischen Calibri und Courier wechseln und jedes Mal, wenn ich sehr langweilig werde, auf den Schriftdialog klicken. Ich weiß, dass ich mit Strg + Leertaste alles auf die Standardschriftart (Calibri) ändern kann.

Wenn es keine Verknüpfung gibt, kann mir bitte jemand helfen, ein Makro zum Umschalten von Schriftarten zu erstellen? Ich kann mir vorstellen, dass ich einem Makro eine Verknüpfung zuweisen kann.

(Die Antwort von techie007 hat in Outlook 2010 bei mir nicht funktioniert.)

Dieses Makro (angepasst von http://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/ ) hat folgende Aufgaben:

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

Als nächstes gehen Sie im VBA-Editor zu Tools > Referencesund wählen Sie Microsoft Word 14.0 Object Library.

Um nun eine Tastenkombination für ein Makro zu erstellen, fügen Sie diese wie folgt zu Ihrer Symbolleiste für den Schnellzugriff hinzu:

1. Öffnen Sie eine neue E-Mail-Nachricht
2. Klicken Sie auf den kleinen Dropdown-Pfeil in der Symbolleiste für den Schnellzugriff (normalerweise oben im Fenster) und wählen Sie "Weitere Befehle ...".

3. Das Dialogfeld "Outlook-Optionen" wird geöffnet. Wählen Sie dann "Makros" aus der Dropdown-Liste "Befehle auswählen aus:"

4. Wählen Sie das SetCodeFont-Makro aus der Liste aus und klicken Sie auf "Hinzufügen >>".
5. Die Makroschaltfläche wird jetzt in der Symbolleiste für den Schnellzugriff angezeigt

Um das Makro auszuführen, markieren Sie Text in Ihrer E-Mail und drücken Sie Alt + <Num>auf <Num>die Position des Makros in Ihrer Symbolleiste für den Schnellzugriff. Wenn das Makro beispielsweise die erste Schaltfläche in der Symbolleiste ist Alt + 1, rufen Sie es auf.

Gerade FYI, ist dies die Tastenfolge der Fontauswahl konzentrieren: Alt, H, F,F