Outlook VBA中模块间MailItem对象值传递问题

问题根源 #

你当前依赖全局变量objMailItem传递对象引用，但Outlook的对象模型生命周期、窗体操作可能导致全局变量的引用失效，从而在调用MyNewMessage时对象为空。

解决方案：通过参数直接传递MailItem对象 #

最可靠的方式是避免全局变量，将MailItem对象作为参数直接在窗体和模块间传递，步骤如下：

1. 修改窗体frmNewEmail的代码 #

添加窗体级变量保存MailItem引用，并通过初始化方法接收对象，按钮点击时直接传递给MyNewMessage：

Option Explicit
Private m_objMailItem As Outlook.MailItem

' 初始化窗体时接收MailItem对象
Public Sub InitializeMailItem(objMail As Outlook.MailItem)
    Set m_objMailItem = objMail
End Sub

Private Sub btnEnglish_Click()
    Me.Hide
    ' 直接传递对象到MyNewMessage
    MyNewMessage m_objMailItem, 2
    Unload Me
End Sub

2. 修改ThisOutlookSession的代码 #

移除全局objMailItem，在加载窗体时调用初始化方法传递对象：

Option Explicit
Private WithEvents objInsp As Outlook.Inspectors

Private Sub objInsp_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
        Dim objMailItem As Outlook.MailItem
        Set objMailItem = Inspector.CurrentItem
        Load frmNewEmail
        ' 传递MailItem给窗体
        frmNewEmail.InitializeMailItem objMailItem
        With frmNewEmail
            .StartUpPosition = 2
            .Show False
        End With
    End If
End Sub

Private Sub Application_Startup()
    Set objInsp = Application.Inspectors
End Sub

3. 修改MyFunctions模块的MyNewMessage过程 #

移除全局objMailItem，改为接收参数传入的对象：

Option Explicit

Public Sub MyNewMessage(objMailItem As Outlook.MailItem, lngLangID As Long)
    Dim strSigID As String

    AddTable objMailItem

    strSigID = GetSignatureID(objMailItem, lngLangID)

    VerifySignature objMailItem, strSigID

    With objMailItem
        .Subject = "[Case No. 000000] "
    End With

    Set objMailItem = Nothing
End Sub

原理说明 #

直接通过参数传递对象引用，能绕过全局变量在Outlook上下文里的不稳定性，确保MailItem对象的引用始终有效，不会因窗体操作或对象生命周期问题丢失。

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