Como impedir o envio de e-mails para um endereço de e-mail específico no Outlook

Muitos usuários esperam bloquear o envio acidental de e-mails para um endereço de e-mail específico no Outlook. Assim, neste artigo, apresentaremos um método para realizá-lo.

O Outlook não fornece recursos nativos para bloquear o envio de emails para um endereço de email específico. Portanto, se você quiser realizá-lo, é necessário um pouco de script. Agora, a seguir, compartilharemos esse trecho de código VBA. Se você não sabe como usar o VBA, você pode ler o p anteriorost - "Como executar o código VBA no seu Outlook".

Impedir o envio de e-mails para um endereço de e-mail específico

1. Primeiramente, acesse o editor VBA do Outlook via “Alt + F11”.
2. Em seguida, coloque o seguinte código no projeto “ThisOutlookSession”.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objMail As Outlook.MailItem Dim objRecipients As Outlook.Recipients Dim ContactGroupFound As Boolean Dim i, n As Long Dim objRecipient As Outlook.Recipient If TypeOf Item For MailItem Then Set objMail = Item 'Expandir os grupos de contato em Destinatários ContactGroupFound = True Faça While ContactGroupFound = True Definir objRecipients = objMail.Recipients ContactGroupFound = False For i = objRecipients.Count To 1 Step -1 If objRecipients(i).AddressEntry.DisplayType <> olUser Then For n = 1 Para objRecipients(i).AddressEntry.Members.Count Se objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Então objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item( n).Address) Else objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name) ContactGroupFound = True End If Next objRecipients(i).Delete End If Next i objRecipients.ResolveAll Loop 'Remove endereço de e-mail específico para cada objRecipient Em objRecipients Se objRecipient.Address = "shelly@datanumen.com" Then If MsgBox("Deseja enviar um e-mail para " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then objRecipient.Delete End If End If Next End If End Sub

3. Depois disso, saia da janela “Microsoft Visual Basic for Applications”.
4. Eventualmente, tente pelas seguintes etapas.

• Para começar, escreva um e-mail e preencha os destinatários.
• Em seguida, clique no botão “Enviar”.
• Ao mesmo tempo, a macro funcionará para expandir os grupos de contato nos destinatários, se houver, e descobrir se os destinatários contêm o endereço de e-mail específico.
• Se o endereço for encontrado, você receberá uma mensagem, conforme a figura a seguir.
• Se você selecionar “Não”, o endereço de e-mail específico será excluído imediatamente.
• Depois que o e-mail é enviado, você pode verificar seus destinatários, que definitivamente não contêm o endereço de e-mail específico.

Repare seu arquivo corrompido do Outlook

Seu arquivo do Outlook já foi danificado? Isso é reconhecidamente o most problemas irritantes no Outlook. Ao estar sujeito a isso, você tem que manipular Reparação de PST, que é um pouco complicado. Como de costume, você pensará em usar o Scanpst na primeira vez. Mas, infelizmente, pode falhar nesses casos. Seu resort deve ser uma ferramenta mais experiente, como DataNumen Outlook Repair, ou serviço profissional de recuperação de PST.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparo do sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com