如何密件抄送发送到我域外的电子邮件地址的任何电子邮件?

Question

我希望密件抄送发送到我域外的电子邮件地址的任何电子邮件。

我发现此脚本适用于所有电子邮件。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("[e-mail]")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

Answer 1

我假设您希望在 Exchange 组织外部发送电子邮件时添加密件抄送地址，而不仅仅是基于域名，对吗？尝试类似以下内容(从我的头顶上(。该脚本检查是否存在 EX 类型以外的收件人(意味着它们位于 Exchange 组织之外(：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Dim objRecip As Recipient
for each objRecip in Item.Recipients
if objRecip.AddressEntry.Type <> "EX" Then
Set objMe = Item.Recipients.Add("[e-mail]")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
exit for
End If
next
End Sub