Ako rýchlo vylúčiť pôvodných príjemcov „CC“ pri použití aplikácie „Odpovedať všetkým“ v programe Outlook

Pri použití možnosti „Odpovedať všetkým“ bude odpovedajúci e-mail obsahovať do poľa „CC“ aj príjemcov „CC“ pôvodného e-mailu. Ak však chcete vylúčiť tento typ príjemcov, môžete použiť metódu uvedenú v tomto článku.

Občas chcete odpovedať na e-mail pôvodnému odosielateľovi a príjemcom „Komu“. V tomto scenári vás určite napadne použitie možnosti „Odpovedať všetkým“. To však znamená, že ak má pôvodná pošta aj príjemcov „CC“, e-mail „Odpovedať všetkým“ automaticky skopíruje príjemcov „CC“ do poľa „CC“. Ak na ne nechcete odpovedať, musíte ich manuálne odstrániť, čo je trochu problematické. Teraz vás v nasledujúcich textoch naučíme, ako nechať program Outlook automaticky ho dosiahnuť podľa vašich potrieb.

Pri použití funkcie „Odpovedať všetkým“ rýchlo vylúčte pôvodných príjemcov „CC“.

1. Pre začiatok spustite Outlook.
2. Potom vstúpte do editora VBA prečítaním predchádzajúceho článku - „Ako spustiť kód VBA v programe Outlook".
3. Ďalej skopírujte nasledujúci kód VBA do projektu „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. Následne reštartujte Outlook, aby ste aktivovali tento nový projekt.
5. Odvtedy vždy, keď kliknete na tlačidlo „Odpovedať všetkým“, zobrazí sa vám výzva, ako je znázornené na nasledujúcom obrázku, s otázkou, či chcete vylúčiť pôvodných príjemcov CC.
6. Ak vyberiete možnosť „Áno“, program Outlook automaticky odstráni príjemcov v poli „CC“.

Udržujte sa dobre pripravení na poškodenie Outlook

Ako všetci vieme, nikto si nemôže byť 100% istý, že je imúnny voči poškodeniu v Outlooku. Preto je nevyhnutné, aby všetci bežní používatelia Outlooku dodržiavali množstvo preventívnych opatrení. V prvom rade je jedným z najdôležitejších udržiavať si konzistentnú a aktuálnu zálohu údajov v Outlooku. Potom je potrebné naučiť sa používať nástroj na opravu doručenej pošty. V neposlednom rade je rozumné a odporúčané mať k dispozícii skúseného odborníka. Oprava programu Outlook nástroj v okolí, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S