Kako brzo isključiti izvorne "CC" primatelje kada koristite "Odgovori svima" u Outlooku

Kada koristite “Odgovori svima”, e-pošta koja odgovara također će sadržavati primatelje “CC” izvorne e-pošte u polju “CC”. No, ako želite isključiti ovu vrstu primatelja, možete upotrijebiti metodu predstavljenu u ovom članku.

Ponekad želite odgovoriti na e-poruku izvornom pošiljatelju i primateljima "Za". U ovom scenariju, sigurno ćete razmisliti o korištenju opcije “Odgovori svima”. Međutim, na taj način, ako originalna pošta također ima primatelje "CC", e-poruka "Odgovori svima" automatski će kopirati primatelje "CC" u polje "CC". Ako im ne želite odgovoriti, morate ih ručno ukloniti, što je malo problematično. Sada ćemo vas u nastavku naučiti kako pustiti Outlook da to automatski izvrši prema vašim potrebama.

Brzo isključite izvorne "CC" primatelje kada koristite "Odgovori svima"

1. Za početak, pokrenite Outlook.
2. Zatim pristupite uređivaču VBA čitajući prethodni članak – “Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim kopirajte sljedeći VBA kod u 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. Nakon toga, ponovno pokrenite Outlook kako biste aktivirali ovaj novi projekt.
5. Od tada, svaki put kada pritisnete gumb "Odgovori svima", dobit ćete upit, kao što je prikazano na sljedećoj slici, s pitanjem želite li isključiti izvorne CC primatelje.
6. Ako odaberete "Da", Outlook će automatski ukloniti primatelje u polju "CC".

Budite dobro pripremljeni za Outlook štetu

Kao što svi znamo, nitko ne može 100% jamčiti da je imun na oštećenja Outlooka. Stoga je bitno da svi redoviti korisnici Outlooka poduzmu mnoge mjere opreza. Prije svega, jedna od najvažnijih je održavati dosljednu i ažuriranu sigurnosnu kopiju podataka Outlooka. Zatim je potrebno naučiti kako koristiti alat za popravak pristigle pošte. Na kraju, ali ne i najmanje važno, razborito je i preporučljivo imati iskusnog stručnjaka. Outlook popravak alat u blizini, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com