Access 2016 VBA启动Outlook 2016触发‘另一程序占用’提示并失败

我遇到过好几个类似的案例，尤其是用Access调用Outlook的时候，这种后台进程残留或者安全限制的问题很常见。结合你的情况（谷歌账户、启动时提示被占用），可以按下面的步骤逐一排查解决：

• 检查后台残留的Outlook进程
  有时候Outlook虽然看起来关闭了，但OUTLOOK.EXE进程会在后台静默运行，导致新实例无法启动。按Ctrl+Shift+Esc打开任务管理器，切换到「详细信息」标签，找到所有名为OUTLOOK.EXE的进程，右键选择「结束任务」，之后再重试你的Access代码。

• 调整Outlook的自动化安全设置
  Outlook默认会限制其他程序（比如Access）自动启动它，这是安全机制导致的。可以这样设置：

  1. 先手动打开Outlook，确保谷歌账户能正常登录、同步无错误
  2. 点击「文件」>「选项」>「信任中心」>「信任中心设置」
  3. 进入「程序访问」，确认Outlook是默认邮件程序，并且勾选允许外部程序访问的相关选项
  4. 切换到「宏设置」，暂时设置为「启用所有宏」（仅测试用，之后记得改回「通知我启用数字签署的宏」），避免宏安全策略阻止Access的调用

• 优化Access的启动代码，显式初始化Outlook
  可能你的代码没有正确处理实例创建逻辑，试试替换成这段VBA代码：

  Dim olApp As Object
  On Error Resume Next
  ' 先尝试获取后台已存在的Outlook实例
  Set olApp = GetObject(, "Outlook.Application")
  If Err.Number <> 0 Then
      Err.Clear
      ' 新建Outlook实例
      Set olApp = CreateObject("Outlook.Application")
      ' 显式触发登录并显示窗口，避免实例后台隐藏
      olApp.GetNamespace("MAPI").Logon
      olApp.ActiveWindow.Visible = True
  End If
  On Error GoTo 0
  ' 这里添加你的后续操作代码
  

  这段代码会先检测后台是否有残留实例，没有的话再新建，同时强制显示Outlook窗口，避免出现"被占用"的提示。

• 排查谷歌账户的同步问题
  谷歌账户的缓存损坏也可能导致Outlook启动异常：

  1. 手动打开Outlook，进入「文件」>「账户设置」>「账户设置」
  2. 选中你的谷歌账户，点击「更改」>「修复」，按照向导完成修复操作
  3. 如果修复无效，可以暂时移除该账户，重启Outlook后重新添加，测试启动是否正常

• 修复Office 2016安装
  如果以上方法都无效，可能是Office组件损坏。打开「控制面板」>「程序和功能」，找到Microsoft Office 2016，右键选择「更改」，选择「快速修复」（如果不行再试「联机修复」），完成后重启电脑再测试。

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