Outlook 365宏无法将选中文本转为Courier New格式求助

问题根源 #

Outlook 365的邮件编辑器基于Word内核，直接操作Outlook对象无法修改文本格式，必须调用Word对象模型来处理选中内容。

正确的VBA宏代码 #

将以下代码替换你当前的宏，放在ThisOutlookSession模块中：

Sub FormatSelectedTextAsCode()
    Dim objMail As MailItem
    Dim objWordDoc As Word.Document
    Dim objSelection As Word.Selection
    
    ' 获取当前活动的邮件窗口
    If TypeName(Application.ActiveWindow) = "Inspector" Then
        Set objMail = Application.ActiveWindow.CurrentItem
        ' 获取邮件对应的Word文档实例
        Set objWordDoc = objMail.GetInspector.WordEditor
        
        ' 获取选中文本对象
        Set objSelection = objWordDoc.Application.Selection
        If Not objSelection Is Nothing And objSelection.Type <> wdSelectionIP Then
            ' 设置代码格式：Courier New字体、黑色
            With objSelection.Font
                .Name = "Courier New"
                .Color = wdColorBlack
                .Size = 10 ' 可根据需求调整字号
            End With
            ' 可选：添加浅灰背景增强代码块辨识度
            objSelection.Shading.BackgroundPatternColor = wdColorGray25
        End If
    End If
    
    ' 释放对象
    Set objSelection = Nothing
    Set objWordDoc = Nothing
    Set objMail = Nothing
End Sub

关键说明 #

• 核心是通过GetInspector.WordEditor获取邮件对应的Word文档实例，这是操作邮件文本格式的唯一正确路径。
• 代码加入了判断逻辑，确保仅在选中有效文本（而非光标处于插入点）时执行格式修改。
• 若不需要背景色，可删除objSelection.Shading.BackgroundPatternColor = wdColorGray25行。

排查步骤 #

1. 启用宏权限：打开Outlook的「文件>选项>信任中心>信任中心设置>宏设置」，选择「启用所有宏」（测试时临时使用，后续可切换为签署宏模式）。
2. 确认操作前提：运行宏前，必须确保新建邮件窗口处于活动状态，且已选中需要修改的文本。
3. 解决类型定义错误：若代码报错「用户定义类型未定义」，需在VBA编辑器中点击「工具>引用」，勾选Microsoft Word xx.x Object Library（xx.x对应你的Office版本）。

内容的提问来源于stack exchange，提问作者roryhewitt