Как удалить себя из полей Кому/Копия/Скрытая копия при ответе всем в Outlook?
Если в вашем 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 в окно Код. Смотрите скриншот:

Код 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 for Applications.
Теперь, когда вы отправляете письма, указанные адреса электронной почты ваших учетных записей Outlook будут автоматически удалены из полей Кому, Копия или Скрытая копия.
Одним щелчком удалить себя из ответа всем с помощью Kutools для Outlook
Если у вас есть Kutools для Outlook, вы можете удалить свои адреса из полей Кому, Копия и Скрытая копия при отправке писем одним щелчком.
Как показано на следующем скриншоте, чтобы удалить себя из ответа всем в Outlook, пожалуйста, действуйте следующим образом.

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

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

Если вы хотите бесплатно попробовать эту утилиту, пожалуйста, перейдите по ссылке для бесплатной загрузки программного обеспечения, а затем выполните операцию согласно вышеуказанным шагам.
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...

