接受会议邀请时自动调整会议提醒时间的实现方案咨询

两种方案均基于Outlook桌面端内置VBA实现，无需安装第三方插件，可按需二选一。 #

方案1：接受邀请时自动调整过短提醒 #

该方案为静默运行，逻辑完全匹配需求：未设置提醒、提醒时长不足30分钟的会议，接受后自动将提醒调整为会前30分钟；原本提醒时长≥30分钟的会议保留原有设置，不做任何改动。
操作步骤：

1. 打开Outlook桌面端，按Alt+F11快捷键调出VBA编辑器
2. 在左侧项目资源管理器面板找到ThisOutlookSession，双击打开代码编辑区
3. 粘贴以下完整代码：

' 声明全局日历监听对象
Dim WithEvents olkCalendar As Outlook.Folder

Private Sub Application_Startup()
    ' Outlook启动时自动绑定默认日历文件夹
    Set olkCalendar = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
End Sub

Private Sub olkCalendar_ItemChange(ByVal Item As Object)
    On Error Resume Next
    ' 过滤非会议日程项
    If TypeName(Item) <> "AppointmentItem" Then Exit Sub
    ' 仅处理用户刚标记为“接受”的会议
    If Item.MeetingStatus <> olMeetingAccepted Then Exit Sub
    
    ' 执行提醒规则校验
    If Item.ReminderSet = False Then
        ' 未设置提醒的会议，开启30分钟提醒
        Item.ReminderSet = True
        Item.ReminderMinutesBeforeStart = 30
        Item.Save
    Else
        ' 提醒时长不足30分钟的，统一调整为30分钟
        If Item.ReminderMinutesBeforeStart < 30 Then
            Item.ReminderMinutesBeforeStart = 30
            Item.Save
        End If
    End If
End Sub

4. 保存代码后重启Outlook，在宏安全设置中选择“启用所有宏（仅适合本地运行可信代码的个人场景）”或“对所有宏发出通知”即可生效。
   注：该调整为纯本地操作，不会向会议组织者或其他参会人发送任何更新通知，仅修改你本地的日历提醒配置。

方案2：接受邀请时弹出检查提示 #

如果不希望自动修改配置，仅需要在接受会议时弹出提示手动核查，只需要将上述代码中olkCalendar_ItemChange过程的核心逻辑替换为以下代码即可：

Private Sub olkCalendar_ItemChange(ByVal Item As Object)
    On Error Resume Next
    If TypeName(Item) <> "AppointmentItem" Then Exit Sub
    If Item.MeetingStatus <> olMeetingAccepted Then Exit Sub
    
    ' 弹出提示框
    MsgBox "请检查您的会议提醒时间！", vbExclamation, "会议设置提醒"
End Sub

保存重启后，每次点击接受会议邀请，都会立刻弹出模态提示框，确认后可手动调整提醒时长。 #

注意事项 #

• 两个方案不要同时启用，根据自己的使用习惯选一个即可
• 如果处于公司域环境被组策略禁用了宏，可以联系IT开通宏权限，个人使用直接运行VBA是成本最低的实现方式
• 代码仅监听本地默认日历的变更，如果你使用多个日历账号，可以在Application_Startup过程中额外绑定其他账号的日历文件夹即可。

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