Outlook で「全員に返信」する際に、To/Cc/Bcc 欄から自分自身を自動的に削除するにはどうすればよいですか？

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 コードをコードウィンドウにコピー＆ペーストしてください。スクリーンショットをご参照ください：

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 アカウントのメールアドレスが、To ・ Cc ・ Bcc 欄から自動的に削除されます。

---

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

Kutools for Outlook をご利用なら、メール送信時に To/Cc/Bcc 欄からご自身のアドレスをワンクリックで簡単に削除できます。

以下のスクリーンショットのように、Outlook で「全員に返信」する際に自分自身を宛先から削除するには、次の手順に従ってください。

1。返信メールを作成するために「全員に返信」ボタンをクリックしたら、Kutools＞My Namesをクリックしてください。スクリーンショットをご参照ください：

すると、ご自身のすべてのメールアドレス（アカウント）が To/Cc/Bcc 欄から即座に削除されます。

このユーティリティを無料でお試しいただきたい場合は、まずソフトウェアを無料ダウンロードし、上記の手順に従って操作してください。