如何为Outlook约会项删除事件注册VBA事件处理程序？

你的现有代码存在两个核心问题：

1. 用CreateObject("Outlook.AppointmentItem")创建的是空白新约会项，仅能监听这个特定空白项的删除，无法覆盖日历中已有的所有项。
2. 单个AppointmentItem的事件仅针对特定条目，不能实现全局日历项删除的监听需求。

要捕获所有日历项的删除事件，正确的做法是绑定到日历文件夹的Items集合的BeforeDelete事件，具体实现如下：

步骤1：创建类模块 #

插入一个类模块（重命名为CalendarItemsHandler），写入以下代码：

Public WithEvents CalendarItems As Outlook.Items

Private Sub CalendarItems_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
    ' 仅处理约会类型的项
    If TypeName(Item) = "AppointmentItem" Then
        MsgBox "日历项已删除：" & Item.Subject
    End If
End Sub

步骤2：创建初始化模块 #

插入一个标准模块（比如命名为Module1），写入以下代码：

' 声明全局变量，确保类实例不会被垃圾回收
Dim objCalendarHandler As CalendarItemsHandler

Sub RegisterCalendarDeleteListener()
    Dim objNamespace As Outlook.Namespace
    Dim objCalendarFolder As Outlook.Folder
    
    Set objNamespace = Outlook.Application.GetNamespace("MAPI")
    ' 获取默认日历文件夹
    Set objCalendarFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
    
    Set objCalendarHandler = New CalendarItemsHandler
    ' 将类的Items对象绑定到日历文件夹的条目集合
    Set objCalendarHandler.CalendarItems = objCalendarFolder.Items
End Sub

使用说明 #

1. 运行RegisterCalendarDeleteListener子程序，启动事件监听。
2. 监听在Outlook运行期间持续有效，关闭Outlook后需要重新运行初始化程序。
3. 如果需要监听非默认日历，可以修改GetDefaultFolder(olFolderCalendar)为指定文件夹的获取逻辑（比如通过Folders集合定位特定日历）。

内容的提问来源于stack exchange，提问作者Adam J. Kessel