Kako brzo isključiti originalne primaoce „CC“ kada koristite „Odgovori svima“ u Outlooku

Kada koristite „Odgovori svima“, e-poruka koja odgovara će takođe uključiti „CC“ primaoce originalne e-pošte u polju „CC“. Ali, ako želite isključiti ovu vrstu primatelja, možete koristiti metodu predstavljenu u ovom članku.

Ponekad želite da odgovorite na e-poruku originalnom pošiljaocu i primaocima „Prima“. U ovom scenariju, sigurno ćete razmišljati o korištenju opcije „Odgovori svima“. Međutim, na ovaj način, ako originalna pošta takođe ima primaoce „CC“, email „Odgovori svima“ će automatski kopirati primaoce „CC“ u polje „CC“. Ako ne želite odgovoriti na njih, morate ih ručno ukloniti, što je malo problematično. Sada ćemo vas u nastavku naučiti kako da dozvolite Outlooku da to automatski izvrši prema vašim potrebama.

Brzo isključi originalne primaoce „CC“ kada koristite „Odgovori svima“

1. Za početak, pokrenite Outlook.
2. Zatim pristupite VBA editoru č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, ponovo pokrenite Outlook da biste aktivirali ovaj novi projekat.
5. Od tada, svaki put kada pritisnete dugme „Odgovori svima“, dobićete upit, kao što je prikazano na sledećoj slici, sa pitanjem da li želite da isključite originalne CC primaoce.
6. Ako odaberete "Da", Outlook će automatski ukloniti primaoce u polju "CC".

Budite dobro pripremljeni za oštećenja Outlooka

Kao što svi znamo, niko ne može 100% garantovati da je imun na oštećenja Outlooka. Stoga je neophodno da svi redovni korisnici Outlooka preduzmu mnoge mjere opreza. Prije svega, jedna od najvažnijih je održavanje dosljedne i ažurirane sigurnosne kopije podataka Outlooka. Zatim, potrebno je naučiti kako koristiti alat za popravak inboxa. Na kraju, ali ne i najmanje važno, razumno je i preporučljivo imati iskusnog stručnjaka. Outlook popravka alat u blizini, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com