在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