Hoe u originele "CC" -ontvangers snel kunt uitsluiten bij gebruik van "Allen beantwoorden" in Outlook

Outlook-oplossingen 29 september 2025

Wanneer u "Allen beantwoorden" gebruikt, bevat de e-mail die reageert ook de "CC" -ontvangers van de originele e-mail in het veld "CC". Maar als u dit type ontvanger wilt uitsluiten, kunt u de methode gebruiken die in dit artikel is geïntroduceerd.

Soms wilt u een e-mail beantwoorden aan de oorspronkelijke afzender en "Aan" ontvangers. In dit scenario zult u zeker overwegen om de optie "Allen beantwoorden" te gebruiken. Als de originele mail echter ook "CC" -ontvangers heeft, zal de "Allen beantwoorden" e-mail automatisch de "CC" -ontvangers naar het "CC" -veld kopiëren. Als u ze niet wilt beantwoorden, moet u ze handmatig verwijderen, wat een beetje lastig is. Nu, in het volgende, zullen we u leren hoe u Outlook dit automatisch kunt laten doen volgens uw behoeften.

Automatisch opgenomen originele "CC" -ontvangers

Sluit originele "CC" -ontvangers snel uit bij gebruik van "Allen beantwoorden"

  1. Begin met het openen van Outlook.
  2. Open vervolgens de VBA-editor door het vorige artikel te lezen - "Hoe u VBA-code in uw Outlook uitvoert'.
  3. Kopieer vervolgens de volgende VBA-code naar het "ThisOutlookSession" -project.
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

VBA-code - Sluit originele "CC" -ontvangers snel uit bij gebruik van "Allen beantwoorden"

  1. Start vervolgens Outlook opnieuw op om dit nieuwe project te activeren.
  2. Sindsdien krijg je elke keer dat je op de knop "Allen beantwoorden" klikt een prompt, zoals weergegeven in de volgende afbeelding, met de vraag of je originele CC-ontvangers wilt uitsluiten.Bevestiging
  3. Als u "Ja" selecteert, verwijdert Outlook automatisch de ontvangers in het veld "CC".Oorspronkelijke "CC" -ontvangers worden verwijderd

Blijf goed voorbereid op schade door Outlook

Zoals we allemaal weten, kan niemand 100% garanderen dat ze immuun zijn voor schade door Outlook. Daarom is het essentieel voor alle regelmatige Outlook-gebruikers om een ​​aantal voorzorgsmaatregelen te nemen. Ten eerste is een van de belangrijkste het maken van een regelmatige en actuele back-up van uw Outlook-gegevens. Vervolgens is het nodig om te leren hoe u een tool voor het herstellen van de inbox kunt gebruiken. Tot slot is het verstandig en aan te raden om een ​​ervaren Outlook-gebruiker in te schakelen. Outlook-oplossing tool in de buurt, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.