如何在 Outlook 中使用“全部回复”时，将自己从收件人、抄送或密送栏中移除？

如果您的 Outlook 中配置了多个电子邮件账户，在使用“全部回复”功能回复收到的邮件时，可能会遇到一些困扰。例如，当您通过某个账户收到邮件时，所有 Outlook 电子邮件账户的地址都会被显示为该邮件的收件人。此时，点击“全部回复”按钮后，所有账户的电子邮件地址都会被自动添加到收件人、抄送或密送栏中。然而，您实际上并不希望自己的其他电子邮件账户也收到这封回复邮件。那么，如何在“全部回复”时将自己的账户移除呢？本文将为您推荐实现这一目标的方法。

使用 VBA 代码在发送邮件时移除自己

一键使用 Kutools for Outlook 将自己从“全部回复”中移除

---

使用 VBA 代码在发送邮件时移除自己

您可以将您的电子邮件账户地址添加到下方的 VBA 代码中，从而避免邮件发送给自己。请按照以下步骤操作。

1. 请同时按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1 > Microsoft Outlook Objects > ThisOutlookSession，然后将下方 VBA 代码复制并粘贴到代码窗口中。见截图：

VBA 代码：自动从 Outlook 所有发送邮件中移除自己

Private Sub RemoveRecipientsWhenItemSend(Item As Outlook.MailItem)
	Dim RemoveAddrList As VBA.Collection
	Dim Recipients As Outlook.Recipients
	Dim aRecipient As Outlook.Recipient
	Dim i
	Dim j
	Set RemoveAddrList = New VBA.Collection
	' add addresses here
	RemoveAddrList.Add "happy.xuebi@163.com"
	RemoveAddrList.Add "siluvia@extendoffice.com"
	Set Recipients = Item.Recipients
	For i = Recipients.Count To 1 Step - 1
		Set aRecipient = Recipients.Item(i)
		For j = 1 To RemoveAddrList.Count
			If LCase$(aRecipient.Address) = LCase$(RemoveAddrList(j)) Then
				Recipients.Remove i
				Exit For
			End If
		Next
	Next
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
	On Error Resume Next
	RemoveRecipientsWhenItemSend Item
End Sub

3. 单击保存按钮，并关闭 Microsoft Visual Basic for Applications 窗口。

从现在起，每当您发送邮件时，Outlook 账户指定的邮箱地址将会自动从收件人、抄送或密送栏中移除。

---

一键使用 Kutools for Outlook 将自己从“全部回复”中移除

如果您拥有 Kutools for Outlook，发送邮件时只需一键即可将自己的地址从收件人、抄送和密送栏中移除。

如以下截图所示，若需在 Outlook 中将自己从“全部回复”中移除，请按照以下步骤操作。

1. 创建回复邮件后，点击“全部回复”按钮，然后请点击 Kutools > 我的名字。见截图：

随后，您的所有名称（电子邮件账户地址）将会立即从收件人、抄送或密送栏中移除。

如需免费试用此功能，请前往免费下载软件，然后按照上述步骤操作即可。