Kā ātri izslēgt oriģinālos “CC” saņēmējus, izmantojot programmu “Atbildēt visiem”

Izmantojot atbildi visiem, atbildes e-pastā laukā “CC” tiks iekļauti arī sākotnējā e-pasta adresāti “CC”. Bet, ja vēlaties izslēgt šāda veida adresātus, varat izmantot metodi, kas ieviesta šajā rakstā.

Dažreiz jūs vēlaties atbildēt uz e-pastu sākotnējam sūtītājam un adresātiem. Šajā scenārijā jūs noteikti domājat izmantot opciju “Atbildēt visiem”. Tomēr ar šo nozīmē, ja oriģinālajam vēstulim ir arī “CC” adresāti, “Reply All” e-pasts automātiski kopēs “CC” adresātus laukā “CC”. Ja nevēlaties uz tiem atbildēt, jums tie ir manuāli jānoņem, kas ir mazliet apgrūtinoši. Turpmāk mēs jums iemācīsim, kā ļaut Outlook automātiski to izpildīt atbilstoši jūsu vajadzībām.

Izmantojot “Atbildēt visiem”, ātri izslēdziet oriģinālos “CC” saņēmējus

1. Lai sāktu, palaidiet programmu Outlook.
2. Pēc tam piekļūstiet VBA redaktoram, izlasot iepriekšējo rakstu - “Kā palaist VBA kodu programmā Outlook".
3. Pēc tam kopējiet šo VBA kodu 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. Pēc tam restartējiet programmu Outlook, lai aktivizētu šo jauno projektu.
5. Kopš tā laika katru reizi, kad nospiedīsit pogu “Atbildēt visiem”, saņemsit uzvedni, kā parādīts nākamajā attēlā, vaicājot, vai vēlaties izslēgt sākotnējos CC adresātus.
6. Ja atlasīsit “Jā”, programma Outlook automātiski noņems adresātus laukā “CC”.

Esiet labi sagatavots Outlook bojājumiem

Kā mēs visi zinām, neviens nevar 100% garantēt, ka ir pasargāts no Outlook bojājumiem. Tāpēc visiem pastāvīgajiem Outlook lietotājiem ir svarīgi ievērot daudzus piesardzības pasākumus. Pirmkārt, viens no svarīgākajiem ir uzturēt konsekventu un atjauninātu Outlook datu dublējumu. Pēc tam ir jāapgūst iesūtnes labošanas rīka izmantošana. Visbeidzot, ir prātīgi un ieteicams uzturēt pieredzējušu... Outlook labojums rīks tuvumā, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar