Как бързо да изключите оригиналните получатели на „CC“, когато използвате „Отговор на всички“ в Outlook

Когато използвате „Отговор на всички“, отговарящият имейл ще включва и получателите на „CC“ на оригиналния имейл в полето „CC“. Но ако искате да изключите този тип получатели, можете да използвате метода, въведен в тази статия.

Понякога искате да отговорите на имейл до първоначалния подател и получателите „До“. В този сценарий определено ще помислите да използвате опцията „Отговор на всички“. По този начин обаче, ако оригиналната поща има и получатели „CC“, имейлът „Отговори на всички“ автоматично ще копира получателите на „CC“ в полето „CC“. Ако не искате да им отговорите, трябва ръчно да ги премахнете, което е малко обезпокоително. Сега, по-долу, ще ви научим как да оставите Outlook автоматично да го изпълнява според вашите нужди.

Бързо изключете оригиналните получатели на „CC“, когато използвате „Отговор на всички“

1. За катоtart, стартирайте Outlook.
2. След това отворете редактора на VBA, като прочетете предишната статия - „Как да стартирате VBA код във вашия Outlook".
3. След това копирайте следния VBA код в проекта „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. Впоследствие, решtart вашия Outlook, за да активирате този нов проект.
5. Оттогава всеки път, когато натиснете бутона „Отговори на всички“, ще получите подкана, както е показано на следващото изображение, с въпрос дали искате да изключите оригиналните получатели на CC.
6. Ако изберете „Да“, Outlook автоматично ще премахне получателите в полето „CC“.

Дръжте добре подготвени за щети на Outlook

Както всички знаем, никой не може на 100% да гарантира, че е в състояние да бъде имунизиран срещу щети в Outlook. Следователно е от съществено значение за всички редовни потребители на Outlook да вземат много предпазни мерки. На първо място, един от most наложително е да се поддържа последователно и актуализирано архивиране на данни в Outlook. След това е необходимо да научите как да използвате инструмента за поправка на входящата поща. Не на последно място е разумно и се препоръчва да държите опитен Поправка на Outlook инструмент в близост, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com