Outlook Email Rules Geo-Location：能否按发件人地域自动转发邮件？

这个功能是可以实现的，以下是两种可行的方案：

方案1：基于Outlook规则的进阶配置 #

Outlook规则向导支持通过发件人地址特征或邮件头信息筛选美国地区发件人，步骤如下：

• 打开规则向导，创建新规则，选择“对我收到的邮件应用规则”
• 添加条件：若发件人邮箱多为美国本土域名（如.us结尾），选择“发件人地址包含特定单词”，输入.us；若需要更精准，选择“通过特定单词或短语在邮件头中”，输入美国IP段标识或United States这类地区关键词
• 添加操作：选择“转发给人员或通讯组列表”，指定美国办公室的收件邮箱
• 完成规则配置并启用

如果发件人无明显域名特征，可通过邮件头Received字段提取发件IP，匹配北美IP地址段（整理常见美国IP段作为筛选条件）。

方案2：使用VBA宏实现精准地区判断 #

若需通过发件IP解析实际地理位置，可编写Outlook VBA宏：

1. 打开Outlook，按Alt + F11打开VBA编辑器
2. 在ThisOutlookSession模块中插入以下代码：

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim objMail As Outlook.MailItem
    Dim objNS As Outlook.NameSpace
    Dim arrEntryIDs() As String
    Dim i As Integer
    
    arrEntryIDs = Split(EntryIDCollection, ",")
    Set objNS = Application.GetNamespace("MAPI")
    
    For i = LBound(arrEntryIDs) To UBound(arrEntryIDs)
        Set objMail = objNS.GetItemFromID(arrEntryIDs(i))
        
        ' 提取邮件头中的发件IP
        Dim mailHeader As String
        mailHeader = objMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
        Dim ipAddress As String
        ipAddress = ExtractIPFromHeader(mailHeader)
        
        ' 判断IP是否属于美国
        If IsUSIP(ipAddress) Then
            objMail.Forward.Recipients.Add "us-office@company.com"
            objMail.Forward.Send
        End If
    Next i
End Sub

' 从邮件头提取IP的辅助函数
Private Function ExtractIPFromHeader(header As String) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "\b(?:\d{1,3}\.){3}\d{1,3}\b"
    Dim matches As Object
    Set matches = regEx.Execute(header)
    If matches.Count > 0 Then
        ExtractIPFromHeader = matches(0).Value
    Else
        ExtractIPFromHeader = ""
    End If
End Function

' 判断IP是否属于美国的辅助函数（需补充完整IP段逻辑）
Private Function IsUSIP(ip As String) As Boolean
    Dim ipParts() As String
    ipParts = Split(ip, ".")
    If UBound(ipParts) = 3 Then
        ' 示例匹配美国某IP段，实际需导入完整IP地区库
        If ipParts(0) = "198" And ipParts(1) = "51" And ipParts(2) = "100" Then
            IsUSIP = True
            Exit Function
        End If
        ' 可添加更多IP段判断
    End If
    IsUSIP = False
End Function

3. 保存宏，调整Outlook信任中心设置允许宏运行

宏会在新邮件到达时自动解析发件IP，判断归属地后完成转发。

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