打开Outlook时通过Excel VBA发邮件触发错误&H80080005求助

我有一个用作表单的Excel工作表，通过VBA实现工作流引导：当需要下一人员输入时，用户点击“提交”按钮，VBA会触发邮件通知对方。

邮件发送的核心VBA代码如下：

'will open email for successful submit
Dim OutlookApp As Object
Dim OutlookMail As Object

' Create a new instance of Outlook
Set OutlookApp = CreateObject("Outlook.Application")

' Create a new email
Set OutlookMail = OutlookApp.CreateItem(0)

' Set the properties of the email
With OutlookMail
    .To = ActiveWorkbook.Worksheets("sheet").Range("A7")
    .CC = ""
    .BCC = ""
    .Subject = ActiveWorkbook.Worksheets("sheet").Range("A8")
    .Body = ActiveWorkbook.Worksheets("sheet").Range("A9")
    .Display 'Use .Send instead of .Display to send the email without displaying it
End With

' Clean up
Set OutlookMail = Nothing
Set OutlookApp = Nothing

此前部分用户曾遇到错误&H80080005，通过更新Office解决。现在出现新问题：当Outlook处于打开状态时点击提交，邮件生成失败并触发相同错误；关闭Outlook后则可正常运行。该问题未在我的机器上出现，求可能的原因及解决思路。

错误&H80080005对应CO_E_SERVER_EXEC_FAILURE，本质是COM组件（Outlook）的实例调用权限或进程冲突问题，以下是具体分析和解决方向：

• 实例创建方式冲突
  Outlook默认是单实例应用，同一时间仅允许一个主进程运行。你的代码用CreateObject强制新建实例，当已有Outlook进程时，新建请求可能被系统权限拦截，或无法正确绑定现有进程。
  解决代码调整：优先获取已运行的Outlook实例，失败时再新建：

  Dim OutlookApp As Object
  On Error Resume Next
  ' 先尝试获取已打开的Outlook实例
  Set OutlookApp = GetObject(, "Outlook.Application")
  On Error GoTo 0
  ' 获取失败则新建实例
  If OutlookApp Is Nothing Then
      Set OutlookApp = CreateObject("Outlook.Application")
  End If
  

• 用户权限与Office信任设置
  部分用户的Outlook处于受保护视图，或Excel宏权限设置过高，导致Outlook运行时，Excel无法通过COM调用访问其进程。
  操作建议：

  • 检查Excel宏设置：文件>选项>信任中心>信任中心设置>宏设置，根据安全需求启用对应宏权限，需确保允许VBA调用Office对象模型。
  • 检查Outlook信任中心设置，确认未阻止外部程序调用Outlook。
  • 让用户以管理员身份运行Excel和Outlook，避免权限不足导致的进程交互失败。

• Office版本与更新差异
  你的机器和用户机器的Office补丁不一致，旧版本补丁可能存在单实例COM调用的Bug，此前用户通过更新解决过类似问题，说明版本差异是潜在因素。
  操作建议：

  • 让用户安装最新Office更新：文件>账户>更新选项>立即更新。
  • 确认用户Office的位数（32/64位）与Excel VBA环境位数一致，避免跨位数COM调用冲突。

• 第三方插件干扰
  用户Outlook安装的第三方插件（如邮件过滤、加密插件）可能占用Outlook的COM接口，导致Excel无法正常创建邮件对象。
  操作建议：

  • 让用户按住Ctrl键启动Outlook（安全模式），测试代码是否正常。若安全模式下正常，逐一禁用插件排查问题来源。

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