Kuidas kiiresti välistada algsed "CC" adressaadid, kui kasutate Outlookis "Vasta kõigile".

Kui kasutate valikut "Vasta kõigile", lisatakse vastatud meili väljale "CC" ka algse meili "CC" saajad. Kuid kui soovite seda tüüpi adressaate välistada, võite kasutada selles artiklis tutvustatud meetodit.

Mõnikord soovite vastata e-kirjale algsele saatjale ja adressaatidele. Selle stsenaariumi korral peaksite kindlasti kasutama valikut "Vasta kõigile". Kui aga algsel kirjal on ka "CC" adressaadid, kopeerib e-kiri "Vasta kõigile" automaatselt "CC" adressaadid väljale "CC". Kui te ei soovi neile vastata, peate need käsitsi eemaldama, mis on pisut tülikas. Järgnevalt õpetame teile, kuidas lasta Outlookil seda automaatselt teie vajaduste järgi täita.

Kui kasutate valikut "Vasta kõigile", välistage kiiresti algsed "CC" adressaadid

1. Alustuseks käivitage Outlook.
2. Seejärel avage VBA redaktor, lugedes eelmist artiklit - "Kuidas Outlookis VBA-koodi käivitada".
3. Järgmisena kopeerige järgmine VBA kood projekti "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. Seejärel taaskäivitage Outlook selle uue projekti aktiveerimiseks.
5. Sellest ajast saati saate iga kord, kui vajutate nuppu "Vasta kõigile", nagu on näidatud järgmisel pildil, mis küsib, kas soovite algsed koopia saajad välistada.
6. Kui valite "Jah", eemaldab Outlook automaatselt väljalt "CC" olevad adressaadid.

Olge Outlooki kahjustusteks hästi ette valmistatud

Nagu me kõik teame, ei saa keegi 100% garanteerida, et ta on Outlooki kahjustuste eest kaitstud. Seetõttu on kõigi Outlooki tavakasutajate jaoks oluline võtta mitmeid ettevaatusabinõusid. Esiteks on üks olulisemaid järjepideva ja ajakohase Outlooki andmete varukoopia loomine. Seejärel on vaja õppida, kuidas kasutada postkasti parandamise tööriista. Viimaseks, aga mitte vähem tähtsaks, on mõistlik ja soovitatav omada kogenud varukoopiate spetsialisti. Outlooki parandus läheduses asuv tööriist, nt DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastada mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom