Windows 11 Outlook下发送附件的Excel VBA宏失效：提示未打开

核心问题 #

你遇到的“Outlook is not open”提示，本质是代码通过GetObject(, "Outlook.Application")获取已运行的Outlook实例失败，即便Outlook实际已打开。常见诱因包括Windows 11的安全权限限制、Outlook COM对象注册异常，或是原代码的错误处理逻辑存在漏洞。

具体修复方案 #

1. 优化Outlook实例获取逻辑 #

将原代码中获取Outlook的片段替换为以下代码，既尝试连接已打开的实例，也会自动启动Outlook（如果未运行）：

strMsg = "Could not test Outlook"
    
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
' 若获取已运行实例失败，尝试新建Outlook实例
If OutApp Is Nothing Then
    Set OutApp = CreateObject("Outlook.Application")
    ' 再次检查是否成功创建实例
    If OutApp Is Nothing Then
        MsgBox "无法启动或连接Outlook，请检查Outlook是否正常安装"
        GoTo exitHandler
    End If
End If
On Error GoTo errHandler

2. 调整Windows 11安全权限设置 #

• 打开控制面板→用户账户→更改用户账户控制设置，暂时将滑块调低至“从不通知”（测试完成后可改回原级别）
• 打开Outlook，依次进入文件→选项→信任中心→信任中心设置→程序访问权限，确认Outlook是默认邮件程序，且允许COM组件访问

3. 修复代码中的路径拼接错误 #

原代码存在两处语法错误，会导致PDF保存路径失效（虽不是当前Outlook提示的直接原因，但建议一并修复）：

' 原错误代码（多了一个引号）
strSavePath = strSavePath & "\""
' 修正为
strSavePath = strSavePath & "\"

同样，在DoesPathExist函数中也有相同错误，需同步修正：

' 原错误代码
myPath = myPath & "\""
' 修正为
myPath = myPath & "\"

测试流程 #

1. 关闭所有Outlook窗口
2. 运行SendEmailTest宏，观察是否能自动启动Outlook并发送测试邮件
3. 若仍失败，检查杀毒软件是否拦截了Excel对Outlook的COM访问

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