При использовании «Ответить всем» ответное электронное письмо также будет включать получателей «Копия» исходного электронного письма в поле «Копия». Но если вы хотите исключить этот тип получателя, вы можете использовать метод, представленный в этой статье.
Иногда вы хотите ответить на электронное письмо исходному отправителю и получателям «Кому». В этом случае вы обязательно подумаете об использовании опции «Ответить всем». Однако, таким образом, если исходное письмо также имеет получателей «Копия», электронное письмо «Ответить всем» автоматически скопирует получателей «Копия» в поле «Копия». Если вы не хотите отвечать на них, вам придется удалить их вручную, что немного хлопотно. Теперь, в дальнейшем, мы научим вас, как позволить Outlook автоматически выполнять это в соответствии с вашими потребностями.
Быстрое исключение исходных получателей «CC» при использовании «Ответить всем»
- Для насtarт, запустите Outlook.
- Затем откройте редактор VBA, прочитав предыдущую статью — «Как запустить код VBA в Outlook».
- Затем скопируйте следующий код VBA в проект ThisOutlookSession.
Public WithEvents objInspectors As Outlook.Inspectors Public WithEvents objExplorer As Outlook.Explorer Public WithEvents objMail As Outlook.MailItem Private Sub Application_Startup() Установить objInspectors = Outlook.Application.Inspectors Установить objExplorer = Outlook.Application.ActiveExplorer End Sub Private Sub objExplorer_Activate() При ошибке Возобновить Далее, если TypeOf objExplorer.Selection.Item(1) Is MailItem Затем установить 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 'Происходит при нажатии кнопки "Ответить всем" Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean) Dim objRecipient As Outlook.Recipient Dim i As Long 'Спросить, следует ли исключить получателей копии If MsgBox("Вы хотите исключить исходных получателей копии?" , vbQuestion + vbYesNo) = vbYes Then 'Если выбрать Да, удалить получателей копии For i = Response.Recipients.Count To 1 Шаг -1 Если Response.Recipients(i).Type = olCC Then Response.Recipients.Remove (i) End If Next End If End Sub
- Впоследствии резtarв Outlook, чтобы активировать этот новый проект.
- С тех пор каждый раз, когда вы нажимаете кнопку «Ответить всем», вы будете получать приглашение, как показано на следующем изображении, с вопросом, хотите ли вы исключить исходных получателей копии.
- Если вы выберете «Да», Outlook автоматически удалит получателей в поле «Копия».
Будьте готовы к повреждению Outlook
Как мы все знаем, никто не может на 100% гарантировать, что он может быть защищен от повреждения Outlook. Следовательно, всем обычным пользователям Outlook необходимо соблюдать множество мер предосторожности. Во-первых, один из мost Обязательные из них - поддерживать согласованную и обновленную резервную копию данных Outlook. Затем необходимо научиться использовать инструмент восстановления папки «Входящие». И последнее, но не менее важное: разумно и рекомендуется иметь опытного Исправление Outlook инструмент поблизости, например DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com