Outlook VBA发送邮件事件：模块宏与事件处理器传参最佳实践

1. 利用MailItem自定义属性存储数据（推荐） #

直接将需要传递的数据绑定到待发送的邮件对象上，通过UserProperties添加自定义属性，在ItemAdd事件中读取该属性即可。数据与邮件一一对应，不会出现全局变量的污染问题。

标准模块中的发送宏 #

Sub PrepareAndSendEmail()
    Dim objMail As MailItem
    Dim customData As String
    
    ' 准备需要传递的业务数据
    customData = "订单ID:20240520001;客户名称:张三"
    
    Set objMail = Application.CreateItem(olMailItem)
    With objMail
        .Subject = "业务通知邮件"
        .Body = "邮件正文内容"
        .To = "customer@example.com"
        
        ' 添加不可见的自定义属性，存储数据
        .UserProperties.Add "BusinessProcessData", olText, False
        .UserProperties("BusinessProcessData").Value = customData
        
        .Send ' 发送后触发已发送文件夹的ItemAdd事件
    End With
End Sub

ThisOutlookSession中的事件处理 #

' 声明模块级变量，绑定已发送文件夹事件
Dim WithEvents SentItemsFolder As Outlook.Folder

Private Sub Application_Startup()
    ' 启动Outlook时绑定已发送文件夹
    Set SentItemsFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
End Sub

Private Sub SentItemsFolder_ItemAdd(ByVal Item As Object)
    Dim targetProp As UserProperty
    Dim processData As String
    
    If TypeName(Item) = "MailItem" Then
        ' 查找自定义属性
        Set targetProp = Item.UserProperties.Find("BusinessProcessData")
        If Not targetProp Is Nothing Then
            processData = targetProp.Value
            ' 执行后续业务逻辑：结合processData和已发送邮件Item
            Debug.Print "处理数据：" & processData
            ' 清理自定义属性，避免邮件残留无用数据
            targetProp.Delete
        End If
    End If
End Sub

2. 类模块封装逻辑与数据（适合复杂场景） #

通过类模块封装邮件发送逻辑、待传递数据和事件处理，数据仅在类实例内部可见，彻底避免全局变量的暴露，代码结构更清晰。

步骤1：创建类模块（命名为EmailProcessHandler） #

Private WithEvents m_sentFolder As Outlook.Folder
Private m_processData As String

' 初始化：传入待传递数据并绑定已发送文件夹
Public Sub Init(data As String)
    m_processData = data
    Set m_sentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
End Sub

' 发送邮件方法
Public Sub SendTargetEmail()
    Dim objMail As MailItem
    Set objMail = Application.CreateItem(olMailItem)
    With objMail
        .Subject = "类封装的业务邮件"
        .Body = "邮件内容"
        .To = "recipient@example.com"
        .Send
    End With
End Sub

' 已发送文件夹的ItemAdd事件处理
Private Sub m_sentFolder_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "MailItem" Then
        ' 结合存储的数据和邮件对象执行逻辑
        Debug.Print "类内处理数据：" & m_processData
        ' 处理完成后解除事件绑定，避免重复触发
        Set m_sentFolder = Nothing
    End If
End Sub

步骤2：标准模块中调用类 #

Sub ProcessEmailWithClass()
    Dim emailHandler As EmailProcessHandler
    Dim businessData As String
    
    businessData = "项目ID:PROJ-007;状态:已完成"
    Set emailHandler = New EmailProcessHandler
    
    emailHandler.Init businessData
    emailHandler.SendTargetEmail
End Sub

3. 临时文件/注册表存储（特殊场景备选） #

如果数据量较大或需跨进程传递，可临时写入文件或注册表，但需注意清理残留，且多邮件并发时可能出现数据覆盖，仅适合单邮件场景。

示例：临时文件方式 #

' 标准模块发送宏
Sub SendEmailWithTempFile()
    Dim objMail As MailItem
    Dim tempFilePath As String
    Dim data As String
    
    data = "大体积业务数据内容..."
    tempFilePath = Environ("TEMP") & "\OutlookTempData.tmp"
    
    ' 写入临时文件
    Open tempFilePath For Output As #1
    Print #1, data
    Close #1
    
    Set objMail = Application.CreateItem(olMailItem)
    With objMail
        .Subject = "带临时数据的邮件"
        .To = "recipient@example.com"
        .Send
    End With
End Sub

' ThisOutlookSession事件处理
Private Sub SentItemsFolder_ItemAdd(ByVal Item As Object)
    Dim tempFilePath As String
    Dim data As String
    
    tempFilePath = Environ("TEMP") & "\OutlookTempData.tmp"
    If Dir(tempFilePath) <> "" Then
        ' 读取临时文件
        Open tempFilePath For Input As #1
        Line Input #1, data
        Close #1
        ' 清理临时文件
        Kill tempFilePath
        
        Debug.Print "从临时文件获取数据：" & data
        ' 执行后续逻辑
    End If
End Sub

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