メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

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

Author Siluvia Last modified

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. 「すべてのマクロを有効にする」オプションが有効になっていることを確認してください。スクリーンショットをご覧ください:

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

3. 保存ボタンをクリックし、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

これで、メールを送信する際に指定されたOutlookアカウントのメールアドレスが自動的にTo、Cc、またはBccボックスから削除されます。


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

Kutools for Outlookを持っている場合、ワンクリックでTo、Cc、Bccフィールドから自分のアドレスを削除できます。

 👉 Kutools for Outlook には現在無料版があり、その 70+ の機能が生涯無料で利用可能です。今すぐ無料版をダウンロードしてください

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

delete myself address from to filed when reply all using kutools for outlook 1

1. 「全員に返信」ボタンをクリックして返信メールを作成後、Kutools > 自分の名前を削除する をクリックします。スクリーンショットをご覧ください:

delete myself address from to filed when reply all using kutools for outlook 2

これにより、あなたの名前(メールアカウントのアドレス)は即座にTo、Cc、またはBccボックスから削除されます。

delete myself address from to filed when reply all using kutools for outlook 3

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


最高のオフィス生産性ツール

最新情報: Kutools for Outlook 無料版リリース!

新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください!今すぐダウンロードしてみましょう!

🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成までを簡単に処理します。

📧 メール自動化: 自動返信(POPとIMAPに対応) / スケジュール電子メールを送信 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶を自動追加 / 複数宛先メールを自動的に一通ずつ分割...

📨 メール管理: メールの取り消し / 件名などで詐欺メールをブロックする / 重複メールを削除 / 高度な検索 / フォルダーを整理...

📁 添付ファイルプロ: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...

🌟 インターフェイスマジック: 😊さらに美しくてクールな絵文字 /重要なメール到着時に通知 / Outlookを閉じるのではなくグループを最小化...

👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーン表示...

👩🏼‍🤝‍👩🏻 連絡先&カレンダー: 選択したメールから一括で連絡先を追加 /連絡先グループを個別グループに分割 / 誕生日のリマインダーを削除...

お好みの言語で Kutools を利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語に対応!

Kutools for Outlookをワンクリックですぐに利用開始。待たずに今すぐダウンロードして効率を高めましょう!

kutools for outlook features1 kutools for outlook features2

🚀 ワンクリックダウンロード — Office用アドインをすべて入手

強くおすすめ: Kutools for Office(5-in-1)

ワンクリックで五つのインストーラーを同時ダウンロード ― Kutools for Excel、Outlook、Word、PowerPointOffice Tab Pro 今すぐダウンロード!

  • ワンクリックの便利さ: 五つのセットアップパッケージを一度にダウンロードできます。
  • 🚀 あらゆるOffice作業に準備完了: 必要なアドインをいつでもインストール可能です。
  • 🧰 含まれるもの: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint