Hur du snabbt utesluter ursprungliga "CC"-mottagare när du använder "Svara alla" i Outlook

När du använder "Svara alla" kommer det svarande e-postmeddelandet även att inkludera "CC"-mottagarna av det ursprungliga e-postmeddelandet i "CC"-fältet. Men om du vill utesluta den här typen av mottagare kan du använda metoden som introducerades i denna artikel.

Ibland vill du svara på ett e-postmeddelande till den ursprungliga avsändaren och "Till"-mottagarna. I det här scenariot kommer du definitivt att tänka på att använda alternativet "Svara alla". Men på detta sätt, om originalposten också har "CC"-mottagare, kommer e-postmeddelandet "Svara alla" automatiskt att kopiera "CC"-mottagarna till "CC"-fältet. Om du inte vill svara på dem måste du ta bort dem manuellt, vilket är lite jobbigt. Nu, i det följande, kommer vi att lära dig hur du låter Outlook automatiskt utföra det enligt dina behov.

Uteslut snabbt ursprungliga "CC"-mottagare när du använder "Svara alla"

1. För somtart, starta Outlook.
2. Gå sedan till VBA-redigeraren genom att läsa föregående artikel - "Hur du kör VBA-kod i din Outlook".
3. Kopiera sedan följande VBA-kod till projektet "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. Därefter restart din Outlook för att aktivera det här nya projektet.
5. Sedan dess, varje gång du trycker på "Svara alla"-knappen, kommer du att få en uppmaning, som visas i följande bild, som frågar om du vill utesluta ursprungliga CC-mottagare.
6. Om du väljer "Ja", kommer Outlook automatiskt att ta bort mottagarna i "CC"-fältet.

Håll dig väl förberedd på Outlook-skador

Som vi alla vet kan ingen till 100% säkerställa att de kan vara immuna mot Outlook-skador. Därför är det viktigt för alla vanliga Outlook-användare att vidta många försiktighetsåtgärder. Först av allt, en av de most avgörande är att hålla en konsekvent och uppdaterad säkerhetskopia av Outlook-data. Sedan är det nödvändigt att lära sig hur man använder reparationsverktyget för inkorgen. Sist men inte minst är det försiktigt och rekommenderas att hålla en erfaren Outlook-fix verktyg i närheten, t.ex. DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återställa mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com