Outlookですべての返信から自分自身を削除するにはどうすればよいですか？

Outlookに複数の電子メールアカウントがある場合、受信した電子メールにすべて返信するときに問題が発生します。たとえば、XNUMXつのアカウントで電子メールを受信しているが、この電子メールの受信者として表示されているすべてのOutlook電子メールアカウントアドレスは、[すべて返信]ボタンをクリックすると、すべての電子メールアカウントアドレスが[宛先]、[CC]、または[Bcc]ボックスに含まれます。しかし実際には、自分の他の電子メールアカウントにこの返信電子メールを受信させたくありません。しかし、すべての返信から自分自身を削除するにはどうすればよいですか？この記事では、それを実現する方法をお勧めします。

VBAコードを使用してメールを送信するときは自分自身を削除してください
 ワンクリックで、Kutools forOutlookのすべての返信から自分自身を削除します

VBAコードを使用してメールを送信するときは自分自身を削除してください

Outlook内の電子メールアカウントアドレスを次のVBAコードに追加して、自分自身に電子メールが送信されないようにすることができます。次のようにしてください。

1。押す他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、ダブルクリックします Project1 > MicrosoftOutlookオブジェクト > このOutlookSession、次に、以下の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. [すべてのマクロを有効にする]オプションが有効になっていることを確認します。スクリーンショットを参照してください：