Outlook 365过程声明不匹配报错，求发件确认弹窗解决方案

这个报错的核心原因很明确：你把带WithEvents的代码放在了标准模块里，但WithEvents只能在类模块中使用，这就导致了事件声明和Outlook内置事件的定义不匹配。下面是一步一步的修复方案：

步骤1：创建并配置类模块 #

1. 打开Outlook的VBA编辑器（按下Alt + F11）
2. 在左侧的“项目”窗口里，右键点击你的Outlook项目 → 插入 → 类模块
3. 选中新建的类模块，在上方的“属性窗口”里把它的名称改成clsOutlookEvents（默认是Class1，改个有意义的名字方便管理）
4. 在类模块里粘贴以下代码：

Public WithEvents myOlApp As Outlook.Application

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim prompt As String
    prompt = "Are you sure you want to send " & Item.Subject & "?"
    If MsgBox(prompt, vbYesNo + vbQuestion, "Send Confirmation") = vbNo Then
        Cancel = True
    End If
End Sub

步骤2：添加初始化代码到标准模块 #

1. 插入一个标准模块（右键项目 → 插入 → 模块）
2. 在标准模块里粘贴初始化代码：

' 声明一个全局变量来保存类的实例，防止它被垃圾回收机制销毁
Private objOutlookEvents As clsOutlookEvents

Public Sub Initialize_handler()
    Set objOutlookEvents = New clsOutlookEvents
    Set objOutlookEvents.myOlApp = Outlook.Application
End Sub

步骤3：让代码随Outlook启动自动运行（可选但推荐） #

如果你希望每次打开Outlook时自动启用这个确认提示，打开ThisOutlookSession模块，添加以下代码：

Private Sub Application_Startup()
    Initialize_handler
End Sub

如果不想自动启动，你可以手动在VBA编辑器里运行Initialize_handler过程，或者给它加个自定义按钮触发。

为什么之前会报错？ #

标准模块不支持WithEvents关键字，只有类模块才能用来捕获应用程序级的事件。当你把WithEvents的代码放在标准模块里时，VBA无法正确关联到Outlook的ItemSend事件，就会抛出“声明不匹配”的错误。

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