Como me remover dos campos Para/Cc/Bcc ao responder a todos no Outlook?

Se tiver várias contas de e-mail no seu Outlook, isso poderá causar alguns problemas quando responder a todos os destinatários de um e-mail recebido. Por exemplo, recebe um e-mail através de uma conta, mas todos os endereços das suas contas do Outlook aparecem como destinatários nesse e-mail. Após clicar no botão «Responder a Todos», todos os endereços das suas contas de e-mail são incluídos nas caixas Para, Cc ou Bcc. Contudo, na realidade, não pretende que as outras contas de e-mail suas recebam essa resposta. Mas como se remover da resposta a todos? Este artigo recomenda-lhe métodos para o conseguir.

Remover-me ao enviar e-mails com código VBA

Remova-se da resposta a todos com um clique utilizando o Kutools para Outlook

---

Remover-me ao enviar e-mails com código VBA

Adicione os endereços das suas contas de e-mail do Outlook ao seguinte código VBA para evitar o envio acidental de mensagens para si próprio. Siga estes passos:

1. Prima simultaneamente as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.

2. Na janela Microsoft Visual Basic para Aplicações, faça duplo clique em Project1 > Objetos do Microsoft Outlook > ThisOutlookSession e, em seguida, copie e cole o código VBA abaixo na janela de Código. Veja a captura de ecrã:

Código VBA: remover-me de todos os e-mails 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

3. Clique no botão Guardar e feche a janela Microsoft Visual Basic para Aplicações.

A partir de agora, ao enviar e-mails, os endereços de e-mail das suas contas do Outlook especificados serão removidos automaticamente dos campos Para, Cc ou Bcc.

---

Remova-se da resposta a todos com um clique utilizando o Kutools para Outlook

Com o Kutools para Outlook, pode remover os seus endereços dos campos Para, Cc e Bcc ao enviar e-mails com apenas um clique.

Conforme ilustrado na seguinte captura de ecrã, para remover a opção “Responder a Todos” no Outlook, siga estes passos:

1. Após clicar no botão «Responder a Todos» para criar uma resposta por e-mail, clique em Kutools > Os Meus Nomes. Veja a captura de ecrã:

Todos os seus endereços de e-mail serão removidos imediatamente dos campos Para, Cc ou Bcc.

Se pretender experimentar gratuitamente esta funcionalidade, aceda primeiro a transferir gratuitamente o software e, em seguida, siga os passos indicados acima.