outlook 回复所有人的时候 自动移除另外个账号的 VBA

在Outlook中，如果你使用多个账户进行邮件发送，可能会遇到在回复所有人时，邮件自动添加了不应当出现的另一个账户地址的情况。为了解决这个问题，可以使用VBA（Visual Basic for Applications）编写宏来自动移除不需要的账户地址。

以下是一个简单的VBA示例，用于在回复所有收件人时移除特定的账户地址：

Sub RemoveSpecificAccountEmailAddress()
    Dim oMail As Outlook.MailItem
    Dim i As Integer
    Dim Recipients As Outlook.Recipients

    ' 确保当前项目是一个邮件
    If ActiveInspector.CurrentItem.Class = olMail Then
        Set oMail = ActiveInspector.CurrentItem
        Set Recipients = oMail.Recipients
        
        ' 遍历收件人列表
        For i = Recipients.Count To 1 Step -1
            ' 检查收件人地址是否是我们需要移除的账户地址
            If Recipients.Item(i).AddressEntry.GetExchangeUser().PrimarySmtpAddress = "特定账户的SMTP地址" Then
                Recipients.Remove i
            End If
        Next i
    End If
End Sub

在使用上述代码之前，请将 `"特定账户的SMTP地址"` 替换为你希望在回复所有时自动移除的账户的SMTP地址。

要运行这段代码，你需要按照以下步骤操作：

1. 在Outlook中，按下 `Alt + F11` 打开VBA编辑器。
2. 在项目资源管理器中找到当前Outlook项目，然后右击 "ThisOutlookSession" 或者项目下的一个模块。
3. 选择 "插入" -> "模块"。
4. 在新打开的模块窗口中粘贴上面的代码。
5. 修改代码中的SMTP地址为你需要移除的账户地址。
6. 关闭VBA编辑器并保存更改。
7. 为了确保代码在发送邮件时运行，你需要将这个宏绑定到一个事件，比如在创建邮件项时触发。

请注意，自动化脚本可以提高效率，但同时也可能带来安全风险。在运行任何VBA代码之前，请确保你理解代码的作用，避免执行未经验证的脚本。