如何修改Outlook VBA脚本检测30天内到期的所有会议系列

以下是修改后的完整脚本，实现遍历所有定期会议系列，对未来30天内到期的会议弹出提醒并支持延长操作：

Sub ExtendExpiringRecurringAppointments()
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim apptItem As Object ' 用Object避免非AppointmentItem类型报错
    Dim recurrPatt As Outlook.RecurrencePattern
    Dim questionMsg As String
    Dim yesNoAnswer As VbMsgBoxResult
    Dim thirtyDaysFromNow As Date
    
    thirtyDaysFromNow = DateAdd("d", 30, Date)
    questionMsg = "会议「{0}」即将到期，是否要延长？" ' 占位符用于插入会议标题
    
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar)
    Set myItems = myFolder.Items
    
    ' 先排序日历项，避免重复处理会议系列中的单个实例
    myItems.Sort "[Start]", True
    
    ' 遍历所有日历条目
    For Each apptItem In myItems
        ' 只处理定期会议，跳过单个会议或非会议项
        If TypeName(apptItem) = "AppointmentItem" And apptItem.IsRecurring Then
            Set recurrPatt = apptItem.GetRecurrencePattern
            
            ' 检查会议系列结束日期是否在未来30天内，且未过期
            If recurrPatt.PatternEndDate >= Date And recurrPatt.PatternEndDate <= thirtyDaysFromNow Then
                ' 替换占位符为当前会议标题
                yesNoAnswer = MsgBox(Replace(questionMsg, "{0}", apptItem.Subject), vbYesNo + vbInformation, "延长会议提醒")
                
                If yesNoAnswer = vbYes Then
                    ' 示例：将会议系列延长30天，可根据需求修改时长
                    recurrPatt.PatternEndDate = DateAdd("d", 30, recurrPatt.PatternEndDate)
                    apptItem.Save ' 保存修改
                    MsgBox "会议「" & apptItem.Subject & "」已成功延长！", vbInformation, "操作完成"
                End If
            End If
        End If
    Next apptItem
    
    ' 释放对象，避免内存泄漏
    Set recurrPatt = Nothing
    Set apptItem = Nothing
    Set myItems = Nothing
    Set myFolder = Nothing
    Set myNamespace = Nothing
End Sub

关键改动说明 #

• 遍历所有会议：用For Each循环替代原代码中指定单个会议的方式，覆盖日历中所有条目
• 筛选定期会议：通过IsRecurring属性判断是否为会议系列，同时用TypeName过滤非会议类型的日历项，避免报错
• 优化日期判断：增加recurrPatt.PatternEndDate >= Date条件，不会提醒已经过期的会议
• 显示会议标题：用占位符动态替换弹窗内容，解决原代码无法获取会议标题的问题
• 添加延长逻辑：示例中默认将会议结束日期延长30天，修改后调用Save保存更改，可根据需求调整延长时长
• 排序日历项：遍历前对日历项按开始时间排序，避免重复处理同一会议系列中的单个实例

原代码的问题点 #

原代码仅通过名称获取单个会议，无法遍历所有系列；未正确获取会议标题，也没有实现实际的延长操作逻辑。

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