使用Outlook VBA实现仅向特定域邮箱执行ReplyAll操作

原代码执行ReplyAll时会错误删除大部分收件人，实际需求是只保留公司指定域（比如@domain.com.au）的收件人，移除外部域地址。问题出在两个核心点：

1. 正向遍历收件人集合时直接删除元素，会导致集合索引混乱，跳过后续待检查项
2. 用InStrRev时加了通配符*，但该函数不支持通配符匹配，无法正确识别域名后缀

修复后的代码如下：

Sub BatchReplyAllWithDomainFilter()
    Dim olItem As Outlook.MailItem
    Dim olReply As Outlook.MailItem
    Dim recipient As Outlook.Recipient
    Dim recipientSMTP As String
    Dim targetDomain As String
    Dim i As Integer
    
    ' 设置需要保留的目标域名，统一转小写避免大小写匹配问题
    targetDomain = "@domain.com.au"
    
    For Each olItem In Application.ActiveExplorer.Selection
        Set olReply = olItem.ReplyAll
        
        ' 倒序遍历收件人集合，避免删除元素后索引混乱导致漏项
        For i = olReply.Recipients.Count To 1 Step -1
            Set recipient = olReply.Recipients(i)
            ' 获取收件人的真实SMTP地址，避免显示名（如"张三"）干扰匹配
            recipientSMTP = LCase(recipient.Address)
            
            ' 检查地址是否以目标域名结尾，InStrRev返回0表示不匹配
            If InStrRev(recipientSMTP, targetDomain) = 0 Then
                recipient.Delete
            End If
        Next i
        
        ' 添加自定义回复内容，用<br>适配HTML邮件格式
        olReply.HTMLBody = "Email response goes here" & "<br>" & olReply.HTMLBody
        
        ' 可根据需求选择Display预览或直接Send发送，注释掉不需要的行
        olReply.Display
        'olReply.Send
    Next olItem
End Sub

关键修改说明：

• 倒序遍历收件人：从最后一个收件人往前删除，彻底解决正向删除时集合元素前移导致的循环漏项问题
• 获取真实SMTP地址：直接提取收件人的邮箱地址，避免显示名干扰域名匹配
• 正确的域名匹配逻辑：去掉无效通配符，用InStrRev精准检查地址末尾的域名后缀，确保只保留指定域收件人
• HTML格式兼容：把纯文本换行符vbCrLf替换为HTML换行标签<br>，避免回复内容格式混乱

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