Win11更新后Excel VBA Outlook邮件功能失效（错误287）求助

问题原因 #

Win11升级后，Outlook的安全策略或系统UAC权限限制收紧，导致VBA在访问ReplyRecipients、追加收件人、读取邮件HTML内容（签名）这类敏感操作时被拦截，触发287权限错误。

代码修复方案 #

方案1：调整操作顺序（最直接有效） #

将Display方法移至所有属性设置完成后执行。提前调用Display会激活Outlook UI交互，后续修改敏感属性会被安全策略拦截：

Sub mail()
    Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem
    Dim Signature As String

    Set OutlookApp = New Outlook.Application
    Set OutlookMail = OutlookApp.CreateItem(olMailItem)
    
    With OutlookMail
        .BodyFormat = olFormatHTML
        ' 先完成所有收件人相关设置
        .To = "aa@hotmail.com"
        .To = .To & "; bb@hotmail.com"
        .ReplyRecipients.Add "cc@hotmail.com"
        
        ' 调用Display获取签名后，再更新HTML内容
        .Display
        Signature = .HTMLBody
        .HTMLBody = "<b>Hello</b><br>" & Signature
    End With
End Sub

方案2：直接读取本地签名文件（绕过UI限制） #

如果Display后读取签名仍失败，可直接读取Outlook存储的签名文件（适用于HTML格式签名）：

Sub mailWithSignature()
    Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem
    Dim SignaturePath As String
    Dim SignatureContent As String
    
    Set OutlookApp = New Outlook.Application
    Set OutlookMail = OutlookApp.CreateItem(olMailItem)
    
    ' 获取系统签名存储路径
    SignaturePath = Environ("APPDATA") & "\Microsoft\Signatures\"
    ' 替换为你的实际默认签名文件名（可在Outlook签名设置中查看）
    If Dir(SignaturePath & "Default.htm") <> "" Then
        Open SignaturePath & "Default.htm" For Input As #1
            SignatureContent = Input$(LOF(1), 1)
        Close #1
        ' 修复签名中资源的相对路径问题
        SignatureContent = Replace(SignatureContent, "../", SignaturePath)
    End If
    
    With OutlookMail
        .BodyFormat = olFormatHTML
        .To = "aa@hotmail.com; bb@hotmail.com"
        .ReplyRecipients.Add "cc@hotmail.com"
        .HTMLBody = "<b>Hello</b><br>" & SignatureContent
        .Display
    End With
End Sub

方案3：调整Outlook安全设置 #

1. 打开Outlook，依次点击文件 > 选项 > 信任中心 > 信任中心设置
2. 选择程序访问和安全性，在Outlook栏目下勾选允许自动化程序访问Outlook（不同版本选项表述可能略有差异）
3. 重启Outlook后重新测试代码

注意事项 #

• 确认VBA编辑器已正确引用Microsoft Outlook 16.0 Object Library（路径：工具 > 引用）
• 若仍有权限问题，尝试以管理员身份运行Excel

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