「全員に返信」時にTo/CC/BCCフィールドから自分を削除するにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

Outlookに複数のメールアカウントがある場合、受信したメールに「全員に返信」すると問題が発生することがあります。例えば、あるアカウントでメールを受信しても、そのメールにすべてのOutlookメールアカウントのアドレスが宛先として表示され、その後「全員に返信」ボタンをクリックすると、すべてのメールアカウントのアドレスがTo、Cc、またはBccボックスに含まれてしまいます。しかし実際には、他のメールアカウントにこの返信メールが届くことは望んでいません。では、「全員に返信」から自分自身を削除するにはどうすればよいでしょうか？この記事では、それを実現するための方法をご紹介します。

VBAコードを使用してメール送信時に自分を削除する

Kutools for Outlookを使用してワンクリックで「全員に返信」から自分を削除する

VBAコードを使用してメール送信時に自分を削除する

以下のVBAコードにOutlook内の自分のメールアカウントのアドレスを追加することで、自分自身にメールを送信することを防ぐことができます。以下のように操作してください。

1. Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、Project1 > Microsoft Outlook Objects > ThisOutlookSessionをダブルクリックし、以下のVBAコードをコピーしてコードウィンドウに貼り付けます。スクリーンショットをご覧ください：

delete myself address from to filed when reply all using vba 1

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

Nowts:

1. VBAコード内のメールアドレスを自分のメールアカウントに変更してください。

2. 「すべてのマクロを有効にする」オプションが有効になっていることを確認してください。スクリーンショットをご覧ください：