Jak rychle vyloučit původní příjemce „CC“ při použití „Odpovědět všem“ v aplikaci Outlook

Při použití funkce „Odpovědět všem“ bude odpovědní e-mail obsahovat také příjemce původního e-mailu „CC“ v poli „CC“. Pokud však chcete tento typ příjemce vyloučit, můžete použít metodu uvedenou v tomto článku.

Občas si přejete odpovědět na e-mail původnímu odesílateli a příjemcům „Komu“. V tomto scénáři vás určitě napadne použít možnost „Odpovědět všem“. To znamená, že pokud má původní e-mail také příjemce „CC“, e-mail „Odpovědět všem“ automaticky zkopíruje příjemce „CC“ do pole „CC“. Pokud na ně nechcete odpovídat, musíte je ručně odstranit, což je trochu problematické. Nyní, v následujícím textu, vás naučíme, jak nechat aplikaci Outlook automaticky provést to podle vašich potřeb.

Rychlé vyloučení původních příjemců „CC“ při použití funkce „Odpovědět všem“

1. Pro začátek spusťte Outlook.
2. Poté otevřete editor VBA přečtením předchozího článku – “Jak spustit kód VBA ve vašem Outlooku".
3. Dále zkopírujte následující 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ásledně restartujte Outlook, abyste tento nový projekt aktivovali.
5. Od té doby se pokaždé, když stisknete tlačítko „Odpovědět všem“, zobrazí výzva, jak je znázorněno na následujícím obrázku, s dotazem, zda chcete vyloučit původní příjemce CC.
6. Pokud vyberete „Ano“, Outlook automaticky odebere příjemce v poli „CC“.

Buďte dobře připraveni na poškození aplikace Outlook

Jak všichni víme, nikdo si nemůže být 100% jistý, že je imunní vůči poškození Outlookem. Proto je pro všechny běžné uživatele Outlooku nezbytné dodržovat mnoho opatření. V první řadě je jedním z nejdůležitějších udržovat konzistentní a aktuální zálohy dat Outlooku. Poté je nutné naučit se používat nástroj pro opravu doručené pošty. V neposlední řadě je rozumné a doporučené mít k dispozici zkušeného odborníka. Oprava aplikace Outlook nástroj v okolí, jako např DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com