Como remover a mim mesmo do campo Para/CC/BCC ao responder a todos no Outlook?

Author: Siluvia Last Modified: 2025-08-06

Se houver várias contas de email no seu Outlook, isso pode causar alguns problemas quando você responde a todos em um email recebido. Por exemplo, você recebe um email através de uma conta, mas todos os endereços de email do Outlook aparecem como destinatários nesse email. Após clicar no botão Responder a Todos, todos os endereços de email são incluídos nas caixas Para, Cc ou Bcc. Na verdade, você não quer que suas outras contas de email recebam essa resposta. Mas como se remover da resposta a todos? Este artigo recomendará métodos para alcançar isso.

Remova a mim mesmo ao enviar emails com código VBA

Um clique para me remover da resposta a todos com o Kutools para Outlook

Remova a mim mesmo ao enviar emails com código VBA

Você pode adicionar os endereços de sua conta de email dentro do seu Outlook no seguinte código VBA para evitar enviar emails para você mesmo. Por favor, siga os passos abaixo.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em Project1 > Objetos do Microsoft Outlook > ThisOutlookSession e, em seguida, copie e cole o seguinte código VBA na janela Código. Veja a captura de tela:

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

Código VBA: remova a mim mesmo de todos os emails enviados no 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

Agora:

1. Altere os endereços de email no código VBA para suas contas de email.

2. Certifique-se de que a opção Ativar todas as macros esteja ativada. Veja a captura de tela:

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

3. Clique no botão Salvar e feche a janela Microsoft Visual Basic for Applications.

A partir de agora, ao enviar emails, os endereços de email especificados de suas contas do Outlook serão removidos automaticamente das caixas Para, Cc ou Bcc.

Um clique para me remover da resposta a todos com o Kutools para Outlook

Se você tiver o Kutools para Outlook, poderá remover seus endereços dos campos Para, Cc e Bcc ao enviar emails com um único clique.

👉 O Kutools para Outlook agora tem uma versão gratuita, com 70+ recursos disponíveis gratuitamente por toda a vida. Faça o download da Versão Gratuita Agora.

Como mostra a captura de tela a seguir, para se remover da resposta a todos no Outlook, siga os passos abaixo.

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

1. Depois de clicar no botão Responder a Todos para criar um email de resposta, clique em Kutools > Meus Nomes. Veja a captura de tela:

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

Em seguida, todos os seus nomes (endereços de conta de email) serão removidos imediatamente das caixas Para, Cc ou Bcc.

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

Se você quiser fazer um teste gratuito dessa ferramenta, faça o download gratuito do software primeiro e, em seguida, aplique a operação conforme os passos acima.