Como bloquear e-mails enviados para um endereço específico no Outlook?

AutorXiaoyang Data de Modificação2024-09-18

De um modo geral, o Outlook envia e-mails para todos os endereços de e-mail normais e não permite bloquear o envio de mensagens para um determinado endereço. Contudo, por vezes, poderá precisar de impedir o envio de e-mails para um endereço específico no Outlook. Neste caso, este tutorial apresenta um código VBA para resolver essa tarefa.

Bloquear e-mails enviados para um endereço específico com código VBA

O código VBA seguinte pode ajudá-lo; siga estes passos:

1. Inicie o Outlook e, em seguida, mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Em seguida, clique duas vezes em ThisOutlookSession no painel Project-Project1 e copie e cole o código abaixo na janela de código vazia:

Código VBA: Bloquear e-mails enviados para um endereço específico

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

Nota: No código acima, deverá substituir o Endereço de Email pelo seu próprio endereço.

doc-block-email-to-an-address-1

3. De seguida, guarde e feche esta janela de código. Agora, ao enviar um e-mail, se o endereço específico Endereço de Email for encontrado na lista de destinatários, aparecerá uma mensagem de aviso como na imagem abaixo. Clique em Não e o endereço específico Endereço de Email será imediatamente eliminado.

doc-block-email-to-an-address-2

4.Após o envio do e-mail, pode verificar os seus destinatários na pasta Itens Enviados, onde o endereço específico Endereço de Email já foi excluído da lista de destinatários, conforme ilustrado na imagem:

doc-block-email-to-an-address-3

Assistente de E-mail com IA no Outlook: Respostas mais inteligentes, comunicação mais clara (magia com um só clique!)

Simplifique as suas tarefas diárias no Outlook com o Assistente de E-mail com IA do Kutools para Outlook. Esta ferramenta inteligente aprende com os seus e-mails anteriores para sugerir respostas precisas, otimizar o conteúdo das suas mensagens e ajudá-lo a redigir e aperfeiçoar textos com facilidade.

Esta funcionalidade suporta:

Respostas Inteligentes: Obtenha respostas elaboradas com base nas suas conversas anteriores — personalizadas, precisas e prontas a usar.
Conteúdo Aprimorado: Refine automaticamente o texto dos seus e-mails para garantir maior clareza e impacto.
Redação sem esforço: basta indicar palavras-chave e deixe que a IA trate do resto, com múltiplos estilos de escrita.
Extensões Inteligentes: potencie as suas ideias com sugestões sensíveis ao contexto.
Resumo: Obtenha instantaneamente uma visão clara e concisa de e-mails longos.
Alcance Global: Traduza os seus e-mails para qualquer idioma com facilidade.

Esta funcionalidade suporta:

Respostas inteligentes por e-mail
Conteúdo otimizado
Rascunhos baseados em palavras-chave
Extensão inteligente de conteúdo
Resumo de e-mails
Tradução multilíngue

Não espere—descarregue já o Assistente de E-mail com IA e desfrute!

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook Transferir Já Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto ⬇ Transferir o Conjunto 💳 Comprar o Conjunto