如何将自己从Outlook中的全部答复中删除？

如果您的Outlook中有多个电子邮件帐户，当您全部答复收到的电子邮件时，它将导致一些问题。例如，您通过一个帐户收到一封电子邮件，但是您的所有Outlook电子邮件帐户地址在此电子邮件中均显示为收件人，在单击“全部答复”按钮之后，所有电子邮件帐户地址都包含在“收件人”，“抄送”或“密件抄送”框中。但实际上，您不希望自己的其他电子邮件帐户收到此回复电子邮件。但是，如何使自己摆脱所有回复呢？本文将向您推荐实现此目标的方法。

使用VBA代码发送电子邮件时删除自己
 一键单击即可使用 Kutools for Outlook 将自己从所有回复中删除

使用VBA代码发送电子邮件时删除自己

您可以将Outlook中的电子邮件帐户地址添加到以下VBA代码中，以防止向自己发送电子邮件。请执行以下操作。

1。按其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口，双击 Project1 > Microsoft Outlook对象 > 本次展望会议，然后将以下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 ""
	RemoveAddrList.Add ""
	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

1.请将VBA代码中的电子邮件地址更改为您的电子邮件帐户。

2.确保启用了“启用所有宏”选项。看截图：