在 Outlook 中使用「全部回覆」時，如何將自己從收件人、副本或密件副本欄位中移除？

如果您的 Outlook 中有多個電子郵件帳戶，點擊收到郵件的「全部回覆」時，可能會遇到以下情況：您透過其中一個帳戶收到郵件，但所有 Outlook 帳戶的電子郵件地址都會被列為收件人；點擊「全部回覆」後，這些地址便會自動填入「收件人」、「副本」或「密件副本」欄位中。然而，您其實並不希望自己的其他帳戶也收到這封回覆郵件。那麼，如何在使用「全部回覆」時將自己的其他帳戶地址移除呢？本文將為您介紹幾種實用的解決方法。

使用 VBA 程式碼在傳送郵件時自動移除自己

一鍵使用 Kutools for Outlook 從「全部回覆」中移除自己

---

使用 VBA 程式碼在傳送郵件時自動移除自己

您可以將 Outlook 中的電子郵件帳戶地址加入以下 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> 我的名稱。請參閱截圖：

接著，您所有的電子郵件帳戶地址將立即從「收件人」、「副本」或「密件副本」欄位中移除。

想免費試用此功能嗎？請先前往免費下載軟體，再依照上述步驟操作即可！