如何將自己從Outlook中的全部答復中刪除？

如果您的Outlook中有多個電子郵件帳戶，當您全部答複收到的電子郵件時，它將導致一些問題。例如，您通過一個帳戶收到一封電子郵件，但是在單擊“全部答复”按鈕後，所有Outlook電子郵件帳戶地址在該電子郵件中均顯示為收件人，所有電子郵件帳戶地址都包含在“收件人”，“抄送”或“密件抄送”框中。但實際上，您不希望自己的其他電子郵件帳戶收到此回復電子郵件。但是，如何使自己擺脫所有回复呢？本文將向您推薦實現此目標的方法。

使用VBA代碼發送電子郵件時刪除自己
 一鍵刪除自己從Kutools for Outlook的全部答復中

使用VBA代碼發送電子郵件時刪除自己

您可以將Outlook中的電子郵件帳戶地址添加到以下VBA代碼中，以防止向自己發送電子郵件。請執行以下操作。

1。按其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。在裡面 Microsoft Visual Basic for Applications 窗口，雙擊 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.確保啟用了“啟用所有宏”選項。看截圖：