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

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

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

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

Автоматично включені оригінальні одержувачі "CC"

Швидко виключайте оригінальні одержувачі "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

Код VBA - Швидко виключіть оригінальні одержувачі "CC", коли використовується "Відповісти всім"

  1. Згодом, відмtart ваш Outlook, щоб активувати цей новий проект.
  2. Відтоді кожного разу, коли ви натискаєте кнопку «Відповісти всім», ви отримуватимете запит, як показано на наступному зображенні, із запитом, чи не хочете ви виключити оригінальних одержувачів CC.Підтвердження
  3. Якщо вибрати "Так", Outlook автоматично видалить одержувачів у полі "CC".Оригінальні одержувачі "CC" видаляються

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

Як ми всі знаємо, ніхто не може на 100% переконатися, що він може бути захищений від пошкоджень Outlook. Отже, для всіх звичайних користувачів Outlook важливо дотримуватися багатьох запобіжних заходів. Перш за все, один з мost обов’язковим є постійне та оновлене резервне копіювання даних Outlook. Потім необхідно навчитися користуватися інструментом для відновлення папки "Вхідні". І останнє, але не менш важливе: розумно і рекомендується тримати досвідченого Виправлення в Outlook інструмент поблизу, наприклад DataNumen Outlook Repair.

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

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

Поділитися зараз:

Коментарі закриті.