Як швидко виключити оригінальні одержувачі "CC" під час використання функції "Відповісти всім" в Outlook

Якщо використовується "Відповісти всім", електронне повідомлення, що відповідає, також включатиме одержувачів оригінального повідомлення "CC" у полі "CC". Але якщо ви хочете виключити цей тип одержувачів, ви можете скористатися методом, представленим у цій статті.

Іноді ви хочете відповісти на електронне повідомлення оригінальному відправнику та одержувачам “Кому”. У цьому сценарії ви точно задумаєтесь про використання опції "Відповісти всім". Однак таким чином, якщо в оригінальному листі також є одержувачі “CC”, електронна пошта “Відповісти всім” автоматично копіює одержувачів “CC” у поле “CC”. Якщо ви не хочете відповідати на них, вам доведеться вручну видалити їх, що трохи клопітно. Тепер, далі, ми навчимо вас, як дозволити Outlook автоматично виконувати це відповідно до ваших потреб.

Швидко виключайте оригінальні одержувачі "CC" під час використання функції "Відповісти всім"

1. Для початку запустіть 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. Після цього перезапустіть Outlook, щоб активувати цей новий проект.
5. Відтоді кожного разу, коли ви натискаєте кнопку «Відповісти всім», ви отримуватимете запит, як показано на наступному зображенні, із запитом, чи не хочете ви виключити оригінальних одержувачів CC.
6. Якщо вибрати "Так", Outlook автоматично видалить одержувачів у полі "CC".

Тримайте добре підготовлену до збитків Outlook

Як усім відомо, ніхто не може гарантувати 100% захист від пошкоджень Outlook. Тому всім звичайним користувачам Outlook важливо вживати багатьох запобіжних заходів. Перш за все, одним із найважливіших є створення постійної та оновленої резервної копії даних Outlook. Потім необхідно навчитися користуватися інструментом відновлення вхідних повідомлень. І останнє, але не менш важливе: розсудливо та рекомендується мати досвідченого фахівця. Виправлення в Outlook інструмент поблизу, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com