Как быстро исключить исходных получателей «CC» при использовании «Ответить всем» в Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

При использовании «Ответить всем» ответное электронное письмо также будет включать получателей «Копия» исходного электронного письма в поле «Копия». Но если вы хотите исключить этот тип получателя, вы можете использовать метод, представленный в этой статье.

Иногда вы хотите ответить на электронное письмо исходному отправителю и получателям «Кому». В этом случае вы обязательно подумаете об использовании опции «Ответить всем». Однако, таким образом, если исходное письмо также имеет получателей «Копия», электронное письмо «Ответить всем» автоматически скопирует получателей «Копия» в поле «Копия». Если вы не хотите отвечать на них, вам придется удалить их вручную, что немного хлопотно. Теперь, в дальнейшем, мы научим вас, как позволить Outlook автоматически выполнять это в соответствии с вашими потребностями.

Автоматически включаются исходные получатели "CC"

Быстрое исключение исходных получателей «CC» при использовании «Ответить всем»

  1. Для насtarт, запустите 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. Впоследствии резtarв Outlook, чтобы активировать этот новый проект.
  2. С тех пор каждый раз, когда вы нажимаете кнопку «Ответить всем», вы будете получать приглашение, как показано на следующем изображении, с вопросом, хотите ли вы исключить исходных получателей копии.Подтверждение
  3. Если вы выберете «Да», Outlook автоматически удалит получателей в поле «Копия».Исходные получатели "CC" удаляются

Будьте готовы к повреждению Outlook

Как мы все знаем, никто не может на 100% гарантировать, что он может быть защищен от повреждения Outlook. Следовательно, всем обычным пользователям Outlook необходимо соблюдать множество мер предосторожности. Во-первых, один из мost Обязательные из них - поддерживать согласованную и обновленную резервную копию данных Outlook. Затем необходимо научиться использовать инструмент восстановления папки «Входящие». И последнее, но не менее важное: разумно и рекомендуется иметь опытного Исправление Outlook инструмент поблизости, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

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