Перейти к содержимому

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

Author: Siluvia Last Modified: 2025-06-05

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

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

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


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

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

1. Одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните Project1 > Объекты Microsoft Outlook > ThisOutlookSession, затем скопируйте и вставьте следующий код VBA в окно Код. Смотрите скриншот:

delete myself address from to filed when reply all using vba 1

Код 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
Nowts:

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

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

delete myself address from to filed when reply all using vba 2

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

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


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

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

 👉 У Kutools for Outlook теперь есть бесплатная версия, в которой 70+ функций доступны бесплатно на всю жизнь. Скачать бесплатную версию прямо сейчас.

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

delete myself address from to filed when reply all using kutools for outlook 1

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

delete myself address from to filed when reply all using kutools for outlook 2

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

delete myself address from to filed when reply all using kutools for outlook 3

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


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

Срочные новости: Kutools для Outlook запускает бесплатную версию!

Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!

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

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

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

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...

👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...

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

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

kutools for outlook features1 kutools for outlook features2