Как удалить себя из полей «Кому», «Копия» и «Скрытая копия» при ответе всем в Outlook?

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

Удаление себя при отправке писем с помощью кода VBA

Одним щелчком удалите себя из ответа всем с помощью Kutools для Outlook

Удаление себя при отправке писем с помощью кода VBA

Вы можете добавить адреса своих почтовых аккаунтов Outlook в приведённый ниже код VBA, чтобы избежать отправки писем самому себе. Выполните следующие действия.

1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений дважды щёлкните по элементу Project1 > Объекты Microsoft Outlook > ThisOutlookSession и вставьте приведённый ниже код VBA в окно кода. См. снимок экрана:

Код VBA: автоматическое удаление себя из всех отправляемых писем в Outlook

Private Sub RemoveRecipientsWhenItemSend(Item As Outlook.MailItem)
	Dim RemoveAddrList As VBA.Collection
	Dim Recipients As Outlook.Recipients
	Dim aRecipient As Outlook.Recipient
	Dim i
	Dim j
	Set RemoveAddrList = New VBA.Collection
	' add addresses here
	RemoveAddrList.Add "happy.xuebi@163.com"
	RemoveAddrList.Add "siluvia@extendoffice.com"
	Set Recipients = Item.Recipients
	For i = Recipients.Count To 1 Step - 1
		Set aRecipient = Recipients.Item(i)
		For j = 1 To RemoveAddrList.Count
			If LCase$(aRecipient.Address) = LCase$(RemoveAddrList(j)) Then
				Recipients.Remove i
				Exit For
			End If
		Next
	Next
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
	On Error Resume Next
	RemoveRecipientsWhenItemSend Item
End Sub

Примечания:

1. Пожалуйста, замените адрес электронной почты в коде VBA на адреса ваших почтовых аккаунтов.

2. Убедитесь, что включена опция «Включить все макросы». См. снимок экрана:

3. Нажмите кнопку Сохранить и закройте окно Microsoft Visual Basic для приложений.

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

Одним щелчком удалите себя из ответа всем с помощью Kutools для Outlook

Если у вас установлен Kutools для Outlook, вы можете одним щелчком удалить свои адреса из полей «Кому», «Копия» и «Скрытая копия» при отправке писем.

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

1. После нажатия кнопки «Ответить всем» для создания ответного письма щёлкните Kutools > Мои имена. См. снимок экрана:

После этого все ваши имена (адреса почтовых аккаунтов) будут немедленно удалены из полей «Кому», «Копия» и «Скрытая копия».

Чтобы бесплатно протестировать эту функцию, сначала бесплатно загрузите программу, а затем выполните описанные выше действия.

---

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook      Скачать сейчас      Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

• ✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
• 🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
• 🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете⬇ Скачать пакет💳 Приобрести пакет