outlook2个账号，回复邮件时自动去掉一个账号的邮箱地址 VBA

在Outlook中使用VBA（Visual Basic for Applications）自动化任务时，如果想要在回复邮件时自动去除一个账号的邮箱地址，可以编写一个宏来实现这个功能。下面是一个简单的示例代码，它可以在你回复邮件时检查发件人的邮箱地址，并将一个特定的邮箱地址从收件人列表中移除。

Private Sub Application_Reply_handler(ByVal Response As Outlook.MailItem)
    ' 检查是否是回复或转发
    If Response.Class = olMail Then
        Dim obj As Outlook.Recipient
        Dim strToRemove As String
        
        ' 要移除的邮箱地址
        strToRemove = "remove_this@example.com"
        
        ' 遍历所有的收件人地址
        For Each obj In Response.Recipients
            ' 如果找到要移除的邮箱地址，则移除
            If obj.AddressEntry.Name = strToRemove Then
                obj.Delete
                Exit For
            End If
        Next obj
    End If
End Sub

请注意，你需要根据实际情况调整`strToRemove`变量中的邮箱地址，并在Outlook的VBA编辑器中将此代码添加到相应的模块中。这段代码应该放在`ThisOutlookSession`模块中，或者放在一个可以被Outlook事件触发的模块中。

在使用VBA脚本之前，你需要在Outlook中启用开发者模式，并且允许运行宏。