从其他软件通过MAPI发送电子邮件时执行Outlook VBA

在发送电子邮件时，我使用此用户登录会话中的以下VBA代码添加密件抄送地址：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMe As Recipient
    Set objMe = Item.Recipients.Add("some@address.dot")
    objMe.Type = olBCC
    objMe.Resolve
    Set objMe = Nothing
End Sub

从Outlook本身发送时，它可以完美地工作。但是，当我使用MAPI通过CRM程序发送电子邮件时，VBA不会执行。因此，我认为使用MAPI发送电子邮件不需要考虑此Outlook会话

---

有没有一种方法可以同时使用Outlook本身和通过MAPI执行我的VBA宏？

应用程序。当通过简单MAPI或mailto链接发送邮件时，不会触发ItemSend

事件。这是经过设计的。

应用程序。当通过简单MAPI或mailto链接发送邮件时，不会触发ItemSend

事件。这是精心设计的。

好的，谢谢您提供的信息！是否有一种MAPI友好的方法可以自动添加密件抄送？最好是在使用简单MAPI发送电子邮件时指定密件抄送，或者创建一个Outlook加载项，定期扫描应用程序。Inspectors集合（因为Application.Inspectors.NewInspector甚至都不启动）并适当地添加密件抄送收件人。确定，谢谢你提供的信息！是否有一种MAPI友好的方法可以自动添加密件抄送？最好是在使用简单MAPI发送电子邮件时指定密件抄送，或者创建一个Outlook加载项，定期扫描应用程序.Inspectors集合（因为Application.Inspectors.NewInspector甚至都不触发），并适当地添加密件抄送收件人。