Outlookで「全員に返信」を使用するときに元の「CC」受信者をすばやく除外する方法

Outlookソリューション 2025 年 9 月 29 日

「全員に返信」を使用する場合、返信メールの「CC」フィールドには、元のメールの「CC」受信者も含まれます。ただし、このタイプの受信者を除外する場合は、この記事で紹介した方法を使用できます。

元の送信者と「宛先」の受信者に電子メールを返信したい場合があります。このシナリオでは、「全員に返信」オプションを使用することを確実に考えます。ただし、これにより、元のメールに「CC」受信者も含まれている場合、「全員に返信」メールは「CC」受信者を「CC」フィールドに自動的にコピーします。返信したくない場合は、手動で削除する必要があり、少し面倒です。ここで、以下では、Outlookが必要に応じて自動でそれを実行できるようにする方法を説明します。

「全員に返信」を使用すると、元の「CC」受信者をすばやく除外する

まず、Outlookを起動してください。
次に、前の記事を読んでVBAエディターにアクセスします–「OutlookでVBAコードを実行する方法"
次に、次のVBAコードを「ThisOutlookSession」プロジェクトにコピーします。

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeOf objExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when you click "Reply All"
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objRecipient As Outlook.Recipient
    Dim i As Long
 
    'Ask you if to exclude CC recipients
    If MsgBox("Do you want to exclude original CC recipients? " , vbQuestion + vbYesNo) = vbYes Then
       'If select Yes, remove CC recipients
       For i = Response.Recipients.Count To 1 Step -1
           If Response.Recipients(i).Type = olCC Then
              Response.Recipients.Remove (i)
           End If
       Next
    End If
End Sub

その後、Outlookを再起動して、この新しいプロジェクトを有効にしてください。
それ以降、「全員に返信」ボタンを押すたびに、次の画像に示すように、元のCC受信者を除外するかどうかを尋ねるプロンプトが表示されます。
「はい」を選択すると、Outlookは「CC」フィールドの受信者を自動的に削除します。

Outlookの損傷に備えてください

周知のとおり、Outlookの損傷から100%完全に免れることは誰にもできません。そのため、Outlookを日常的に使用するすべてのユーザーは、多くの予防策を講じることが不可欠です。まず、最も重要なことの一つは、Outlookのデータバックアップを常に最新の状態に保つことです。次に、受信トレイ修復ツールの使い方を学ぶ必要があります。最後に、経験豊富な専門家にサポートを依頼することが賢明であり、推奨されます。 Outlookの修正近くのツールなど DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを回復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com