接受邀请时读取SentOnBehalfOfName时出错

Question

当我使用我的团队DL回复电子邮件时，我会发送某个邮箱。

我制作了以下脚本进行检查和申请。

当我接受或拒绝邀请时，它会在行中抛出错误：

If Item.SentOnBehalfOfName = "my teams name here" Then

错误消息：

  

运行时错误'438'对象不支持此属性或方法

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim olkRecipient As Outlook.Recipient
    If Item.SentOnBehalfOfName = "my teams name here" Then
        Set olkRecipient = Item.Recipients.Add("my teams dl here")
        olkRecipient.Type = olBCC
        Item.Save
    Else:
        Exit Sub
    End If
End Sub

Answer 1

SentOnBehalfOfName是MailItem对象的属性，用于表示电子邮件。

但是，邀请被表示为AppointmentItem或MeetingItem对象intead。您需要使用其中一个属性intead，即SendUsingAccount。