Outlook 2010自动密送（含例外）：办公域邮件全转发技术问询

我刚接手了一个办公网络的邮件配置需求，目标很明确：要把mydomain.com域名下所有**接收（incoming）和发送（outgoing）**的邮件，全部转发到外部地址some_email@external_domain.com。下面给大家梳理下当前的场景和已完成的配置：

场景说明 #

• 邮件服务：mydomain.com的邮件服务器是外部托管的，没有本地部署Exchange服务器
• 客户端环境：所有用户统一使用Outlook 2010，通过POP协议收发邮件

已完成的两项核心配置 #

1. 服务器端接收邮件转发配置 #

已经在外部托管的邮件服务器上，为mydomain.com下的每一个用户邮件地址都配置了自动转发规则——所有发送到这些地址的接收邮件，都会自动转发到some_email@external_domain.com。这一步直接解决了** incoming邮件**的转发需求。

2. Outlook客户端发送邮件转发配置 #

因为POP协议下，用户通过Outlook发送的邮件不会经过托管服务器的转发规则，所以我们给每个Outlook 2010客户端部署了VBA代码，用来自动处理** outgoing邮件**的转发。目前已部署的代码片段如下：

Dim strBcc As String
On Error Resume Next
' #### USER OPTIONS ####
' address for forwarding outgoing emails
strBcc = "some_email@external_domain.com"

这里补充下完整的可运行VBA逻辑（需要放到Outlook的ThisOutlookSession模块中），确保发送邮件时自动添加目标地址为BCC，实现可靠转发：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strBcc As String
    On Error Resume Next
    ' #### USER OPTIONS ####
    strBcc = "some_email@external_domain.com"
    
    ' 仅对邮件类型生效
    If Item.Class = olMail Then
        ' 避免重复添加目标地址
        If InStr(1, Item.BCC, strBcc, vbTextCompare) = 0 Then
            ' 处理BCC为空的边界情况
            If Item.BCC <> "" Then
                Item.BCC = Item.BCC & ";" & strBcc
            Else
                Item.BCC = strBcc
            End If
            Item.Save
        End If
    End If
End Sub

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