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 Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        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 specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & 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