Cum să excludeți rapid destinatarii originali „CC” atunci când utilizați „Răspunde tuturor” în Outlook

Când utilizați „Răspunde tuturor”, e-mailul care răspunde va include și destinatarii „CC” ai e-mailului inițial în câmpul „CC”. Dar, dacă doriți să excludeți acest tip de destinatar, puteți utiliza metoda introdusă în acest articol.

Uneori, doriți să răspundeți la un e-mail expeditorului inițial și destinatarilor „Către”. În acest scenariu, vă veți gândi cu siguranță să utilizați opțiunea „Răspunde tuturor”. Cu toate acestea, prin acest mijloc, dacă e-mailul original are și destinatari „CC”, e-mailul „Răspunde tuturor” va copia automat destinatarii „CC” în câmpul „CC”. Dacă nu doriți să le răspundeți, trebuie să le eliminați manual, ceea ce este puțin deranjant. Acum, în cele ce urmează, vă vom învăța cum să lăsați Outlook să o realizeze automat în funcție de nevoile dvs.

Excludeți rapid destinatarii originali „CC” atunci când utilizați „Răspunde tuturor”

1. Pentru început, lansați Outlook.
2. Apoi, accesați editorul VBA citind articolul anterior – „Cum să rulați codul VBA în Outlook".
3. Apoi, copiați următorul cod VBA în proiectul „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. Ulterior, reporniți Outlook pentru a activa acest nou proiect.
5. De atunci, de fiecare dată când apăsați butonul „Răspunde tuturor”, veți primi o solicitare, așa cum se arată în imaginea următoare, care vă întreabă dacă doriți să excludeți destinatarii CC originali.
6. Dacă selectați „Da”, Outlook va elimina automat destinatarii din câmpul „CC”.

Fiți bine pregătit pentru deteriorarea Outlook

După cum știm cu toții, nimeni nu poate garanta 100% că este imun la daunele provocate de Outlook. Prin urmare, este esențial ca toți utilizatorii obișnuiți de Outlook să ia multe măsuri de precauție. În primul rând, una dintre cele mai importante este să păstreze o copie de rezervă a datelor Outlook constantă și actualizată. Apoi, este necesar să învețe cum să utilizeze instrumentul de reparare a inbox-ului. Nu în ultimul rând, este prudent și recomandat să aibă un specialist în... Remediere Outlook instrument în apropiere, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com