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

Author Siluvia Last modified 2025-08-26

Если в вашем 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

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