接受/拒绝会议邀请时Outlook VBA脚本报438错误求助

嘿，这个错误的根源很清晰：当你接受或拒绝会议邀请时，触发Application_ItemSend的Item对象是MeetingItem类型，而这个类型的对象并不支持SentOnBehalfOfName属性——只有MailItem（普通邮件）才有这个属性，所以代码执行到那一行时就会抛出438错误。

修复方案：先判断对象类型 #

我们只需要在代码开头增加一个判断，确保只有处理普通邮件（MailItem）时才执行后续的密送逻辑，会议相关的Item直接跳过即可。修改后的代码如下：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim olkRecipient As Outlook.Recipient
    
    ' 仅对普通邮件对象执行逻辑，避免会议邀请等类型触发错误
    If TypeOf Item Is Outlook.MailItem Then
        Dim mailItem As Outlook.MailItem
        Set mailItem = Item
        
        If mailItem.SentOnBehalfOfName = "my teams name here" Then
            Set olkRecipient = mailItem.Recipients.Add("my teams dl here")
            olkRecipient.Type = olBCC
            mailItem.Save
        End If
    End If
End Sub

代码说明 #

• TypeOf Item Is Outlook.MailItem：这行代码会先检查当前触发事件的Item是不是普通邮件类型，只有是的时候才继续执行后续逻辑。
• 把Item转换为MailItem对象后再访问属性，能确保我们调用的属性是该类型支持的，彻底避免类型不匹配的错误。

如果你的场景中需要对会议邀请的回复也执行密送逻辑，可以单独增加MeetingItem的判断分支，使用该类型对应的属性（比如Organizer）来做条件校验，但根据你的需求描述，只处理邮件回复的话，上面的代码就足够解决问题了。

内容的提问来源于stack exchange，提问作者Zoltán Benesch