Kako hitro izključiti prvotne prejemnike »CC« pri uporabi »Odgovori vsem« v Outlooku

Ko uporabljate »Odgovori vsem«, bo odgovorno e-poštno sporočilo v polje »CC« vključevalo tudi prejemnike »CC« izvirnega e-poštnega sporočila. Če pa želite izključiti to vrsto prejemnika, lahko uporabite metodo, predstavljeno v tem članku.

Včasih želite odgovoriti na e-pošto prvotnemu pošiljatelju in prejemnikom »Za«. V tem primeru boste zagotovo pomislili na možnost »Odgovori vsem«. Če ima izvirna pošta tudi prejemnike »CC«, bo e-poštno sporočilo »Odgovori vsem« samodejno kopiralo prejemnike »CC« v polje »CC«. Če jim ne želite odgovoriti, jih morate ročno odstraniti, kar je nekoliko težavno. Zdaj vas bomo v nadaljevanju naučili, kako pustiti Outlooku, da to samodejno izvede glede na vaše potrebe.

Hitro izključite prvotne prejemnike »CC«, ko uporabljate »Odgovori vsem«

1. Za začetek zaženite Outlook.
2. Nato odprite urejevalnik VBA tako, da preberete prejšnji članek – “Kako zagnati kodo VBA v Outlooku".
3. Nato kopirajte naslednjo kodo VBA v 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. Nato znova zaženite Outlook, da aktivirate ta novi projekt.
5. Od takrat boste vsakič, ko pritisnete gumb »Odgovori vsem«, prejeli poziv, kot je prikazano na naslednji sliki, z vprašanjem, ali želite izključiti prvotne prejemnike CC.
6. Če izberete »Da«, bo Outlook samodejno odstranil prejemnike v polju »CC«.

Bodite dobro pripravljeni na škodo Outlooka

Kot vsi vemo, nihče ne more 100-odstotno zagotoviti, da je imun na poškodbe v Outlooku. Zato je za vse redne uporabnike Outlooka bistveno, da upoštevajo številne previdnostne ukrepe. Najprej je eden najpomembnejših vzdrževanje dosledne in posodobljene varnostne kopije podatkov v Outlooku. Nato se je treba naučiti uporabljati orodje za popravilo mape »Prejeto«. Nenazadnje je preudarno in priporočljivo imeti izkušenega strokovnjaka. Outlook popravek orodje v bližini, kot npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjati mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com