Kaip greitai išskirti originalius „CC“ gavėjus naudojant „Atsakyti visiems“ programoje „Outlook“.

Kai naudojate „Atsakyti visiems“, atsakymo el. laiško lauke „CC“ taip pat bus nurodyti pirminio el. laiško „CC“ gavėjai. Bet jei norite neįtraukti šio tipo gavėjų, galite naudoti šiame straipsnyje pateiktą metodą.

Kartais norite atsakyti į el. laišką pradiniam siuntėjui ir gavėjams. Šiame scenarijuje tikrai sugalvosite naudoti parinktį „Atsakyti visiems“. Tačiau tokiu būdu, jei pradiniame laiške taip pat yra „CC“ gavėjų, el. laiškas „Atsakyti visiems“ automatiškai nukopijuos „CC“ gavėjus į lauką „CC“. Jei nenorite į juos atsakyti, turite juos pašalinti rankiniu būdu, o tai šiek tiek vargina. Toliau mes išmokysime jus, kaip leisti „Outlook“ automatiškai tai atlikti pagal jūsų poreikius.

Greitai išskirkite originalius „CC“ gavėjus, kai naudojate „Atsakyti visiems“

1. Dėl astart, paleiskite „Outlook“.
2. Tada eikite į VBA redaktorių skaitydami ankstesnį straipsnį - "Kaip paleisti VBA kodą „Outlook“.".
3. Tada nukopijuokite šį VBA kodą į 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. Vėliau atstart savo Outlook, kad suaktyvintumėte šį naują projektą.
5. Nuo tada kiekvieną kartą, kai paspausite mygtuką „Atsakyti visiems“, gausite raginimą, kaip parodyta kitame paveikslėlyje, klausiantį, ar norite išskirti pradinius CC gavėjus.
6. Jei pasirinksite „Taip“, „Outlook“ automatiškai pašalins gavėjus lauke „CC“.

Būkite gerai pasiruošę „Outlook“ žalai

Kaip visi žinome, niekas negali 100% užtikrinti, kad bus apsaugotas nuo „Outlook“ žalos. Todėl visiems nuolatiniams „Outlook“ vartotojams būtina imtis daugelio atsargumo priemonių. Visų pirma, vienas iš most būtina turėti nuoseklią ir atnaujintą „Outlook“ duomenų atsarginę kopiją. Tada būtina išmokti naudotis gautųjų taisymo įrankiu. Paskutinis, bet ne mažiau svarbus dalykas – protinga ir rekomenduojama turėti patirties Outlook taisymas šalia esantis įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com