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

在使用Outlook进行邮件回复时，有时需要回复所有人但不包括自己的邮箱地址，这可以通过VBA宏编程来实现。以下是一个简单的VBA宏示例，用于在Outlook中自动回复邮件时移除自己的邮箱地址：

Sub ReplyAllAndRemoveMyAddress()

    Dim originalEmail As MailItem
    Dim replyEmail As MailItem
    Dim recipients As Recipients
    Dim recipient As Recipient
    
    ' 获取当前正在处理的邮件
    Set originalEmail = ActiveInspector.CurrentItem
    
    ' 创建一个新的回复邮件
    Set replyEmail = originalEmail.ReplyAll
    
    ' 获取新邮件的收件人列表
    Set recipients = replyEmail.Recipients
    
    ' 遍历所有收件人
    For Each recipient In recipients
        ' 检查收件人地址是否为自己的邮箱地址
        If recipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress = originalEmail.SenderEmailAddress Then
            ' 如果是，从收件人列表中移除该地址
            recipient.Delete
        End If
    Next recipient
    
    ' 发送回复邮件
    replyEmail.Send
    
    ' 清理对象
    Set replyEmail = Nothing
    Set recipients = Nothing
    Set recipient = Nothing
    Set originalEmail = Nothing

End Sub

使用这段代码，当你在Outlook中收到邮件并需要回复所有人时，只需运行这个宏，它会自动创建一个回复邮件，移除你的邮箱地址，并发送出去。

请注意，在使用此宏之前，你需要确保你的Outlook允许运行宏，并且你有足够的权限来访问和修改邮件内容。此外，运行VBA宏可能会带来安全风险，因此请确保代码来自可信来源。