So schließen Sie Original-CC-Empfänger schnell aus, wenn Sie in Outlook "Allen antworten" verwenden

Bei Verwendung von "Allen antworten" enthält die antwortende E-Mail auch die "CC" -Empfänger der ursprünglichen E-Mail im Feld "CC". Wenn Sie diesen Empfängertyp jedoch ausschließen möchten, können Sie die in diesem Artikel eingeführte Methode verwenden.

Manchmal möchten Sie eine E-Mail an den ursprünglichen Absender und an die Empfänger senden. In diesem Szenario werden Sie definitiv daran denken, die Option "Allen antworten" zu verwenden. Auf diese Weise kopiert die E-Mail "Allen antworten" die "CC" -Empfänger automatisch in das Feld "CC", wenn die ursprüngliche E-Mail auch "CC" -Empfänger hat. Wenn Sie nicht auf sie antworten möchten, müssen Sie sie manuell entfernen, was etwas mühsam ist. Im Folgenden erfahren Sie, wie Sie Outlook automatisch gemäß Ihren Anforderungen ausführen lassen.

Schließen Sie Original-CC-Empfänger schnell aus, wenn Sie "Allen antworten" verwenden.

1. Starten Sie zunächst Outlook.
2. Greifen Sie dann auf den VBA-Editor zu, indem Sie den vorherigen Artikel lesen - „So führen Sie VBA-Code in Outlook aus".
3. Kopieren Sie als Nächstes den folgenden VBA-Code in das Projekt "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

4. Starten Sie anschließend Outlook neu, um dieses neue Projekt zu aktivieren.
5. Seitdem werden Sie jedes Mal, wenn Sie auf die Schaltfläche "Allen antworten" klicken, wie im folgenden Bild gezeigt, gefragt, ob Sie die ursprünglichen CC-Empfänger ausschließen möchten.
6. Wenn Sie "Ja" auswählen, entfernt Outlook automatisch die Empfänger im Feld "CC".

Halten Sie sich gut auf Outlook-Schäden vorbereitet

Wie wir alle wissen, kann sich niemand hundertprozentig vor Outlook-Schäden schützen. Daher ist es für alle regelmäßigen Outlook-Nutzer unerlässlich, verschiedene Vorsichtsmaßnahmen zu treffen. An erster Stelle steht die regelmäßige und aktuelle Datensicherung von Outlook. Außerdem ist es wichtig zu lernen, wie man ein Tool zur Posteingangsreparatur verwendet. Nicht zuletzt ist es ratsam, einen erfahrenen Experten hinzuzuziehen. Outlook beheben Werkzeug in der Nähe, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX