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

ただ、FYI、これは、フォントのセレクタを集中させるキーシーケンスです：Alt、H、F、F