Outlook 365宏无法保存求助：安全选项正确仍丢失

1. 确保手动保存VBA项目 #

修改代码后必须手动保存VBA项目，不要依赖Outlook自动保存：

• 打开VBA编辑器（按Alt+F11）
• 点击工具栏的保存按钮（或按Ctrl+S），确认保存目标为NormalEmail.dotm文件
• 完成保存后再退出Outlook

2. 检查NormalEmail.dotm文件权限 #

Outlook的VBA项目默认存储在C:\Users\<你的用户名>\AppData\Roaming\Microsoft\Templates\NormalEmail.dotm：

• 右键该文件选择「属性」，确认未勾选「只读」选项
• 切换到「安全」标签，检查当前用户是否拥有「写入」权限
• 若权限不足，联系IT组调整文件权限

3. 确认IT组的组策略限制 #

即使安全设置显示「警告所有宏」，IT组可能通过组策略限制宏的持久化：

• 询问IT是否启用了「禁止修改宏项目」「强制重置Normal模板」这类策略
• 确认是否允许保存未签名的宏到模板文件

4. 用类模块绑定事件（替代ThisOutlookSession） #

如果ThisOutlookSession的代码无法保存，可尝试类模块绑定事件的方式：

1. 在VBA编辑器中插入类模块（「插入」→「类模块」），命名为OutlookAppEvents
2. 在类模块中添加代码：

Public WithEvents olApp As Outlook.Application

Private Sub olApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If InStr(1, Item.Body, "vedhæf", vbTextCompare) > 0 Or InStr(1, Item.Subject, "vedhæf", vbTextCompare) > 0 Then
        If Item.Attachments.Count = 0 Then
            answer = MsgBox("Der er ingen vedhæftning, vil du sende alligevel?", vbYesNo)
            If answer = vbNo Then Cancel = True
        End If
    End If
End Sub

3. 插入标准模块，添加初始化代码：

Dim olEvents As New OutlookAppEvents

Sub InitializeEvents()
    Set olEvents.olApp = Outlook.Application
End Sub

4. 保存VBA项目，启动Outlook后手动运行InitializeEvents宏（或联系IT设置启动自动触发）

5. 测试新配置文件 #

创建新的Outlook配置文件，排除当前配置文件损坏的可能：

• 打开控制面板→「邮件」→「显示配置文件」→「添加」
• 配置新的邮箱账户，打开Outlook后重新添加宏并保存，退出后检查代码是否保留

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