Office2021升级后原VBA脚本无法启用Outlook宏的问题求助

问题背景 #

从Office 2016升级到2021后，原用于设置Outlook宏启用的VBS脚本失效，原代码如下：

Dim olApp As Object
Set olApp = Createobject("Outlook.Application")
olApp.Application.AutomationSecurity 1
Dim exportedUIPath As String
Set olApp = Nothing
rem pause

失效原因 #

Office 2021对自动化操作的安全管控更严格：

• 原代码中olApp.Application.AutomationSecurity 1存在语法冗余（olApp本身就是Application对象），且直接设置该属性会被新版安全策略拦截
• 未触发Outlook实例的初始化操作，导致安全设置未被实际应用

修复方案 #

1. 修正VBS脚本代码 #

调整属性设置逻辑，添加实例初始化操作，确保设置生效：

Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
' 直接设置AutomationSecurity属性，1对应msoAutomationSecurityLow
olApp.AutomationSecurity = 1
' 获取命名空间触发实例初始化，确保设置生效
Dim ns As Object
Set ns = olApp.GetNamespace("MAPI")
Set ns = Nothing
Set olApp = Nothing
rem pause

2. 检查Outlook信任中心设置 #

打开Outlook，依次进入文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置，确认已勾选符合需求的宏权限（如"允许运行所有宏"），避免安全策略阻断脚本操作。

3. 确保脚本运行环境正常 #

• 关闭所有Outlook进程后再运行脚本，避免实例冲突
• 以管理员权限运行脚本，确保拥有足够操作权限

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