Como receber um aviso ao enviar e-mails para pessoas fora da sua empresa

Se a sua empresa tem uma política exata de que você não deve enviar e-mails para pessoas de fora da empresa, você pode usar o método apresentado neste artigo. Ele vai te ensinar como usar o VBA para receber um aviso se um e-mail for enviado para fora da sua empresa.

Às vezes, para proteger a segurança dos dados, sua empresa pode exigir que, ao usar uma conta de e-mail comercial, você envie e-mails apenas para pessoas dentro de sua empresa. Ou seja, não está autorizado a enviar e-mails para pessoas externas à empresa, nomeadamente endereços de e-mail em domínios externos. No entanto, talvez às vezes você seja um pouco esquecível. Nesse caso, você pode desejar que o Outlook possa avisá-lo automaticamente quando você enviar e-mails para uma empresa externa. Aqui vamos nos concentrar neste problema e orientá-lo sobre como alcançá-lo via Outlook VBA.

Receba um aviso ao enviar e-mails para pessoas fora da sua empresa

1. Primeiramente, inicie o programa Outlook.
2. Em seguida, pressione os atalhos de teclado "Alt + F11".
3. Em seguida, você terá acesso à janela do editor VBA do Outlook.
4. Em seguida, abra o projeto “ThisOutlookSession”.
5. Em seguida, copie e cole os seguintes códigos VBA nesta janela do projeto.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim i As Long
    Dim strRecipientAddress As String
    Dim strPrompt As String
    Dim nWarning As Integer
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
 
       For i = objRecipients.Count To 1 Step -1
           strRecipientAddress = objRecipients.Item(i).Address
           'Change @datanumen.com to your own company domain
           If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
              Exit For
           Else
              Cancel = False
           End If
      Next i
 
      If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
         strPrompt = "Are you sure to send this email to outside your company? "
         nWarning = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm Email to Outside Organization")
         If nWarning = vbNo Then
            Cancel = True
         End If
      End If
    End If
End Sub

6. Depois disso, você deve assinar este código.
7. Posteriormente, altere as configurações de macro do Outlook para permitir as macros assinadas.
8. Finalmente, a partir de agora, toda vez que você pretende enviar e-mails para endereços de e-mail que não estão no domínio da sua empresa, você receberá um aviso como a imagem a seguir:

Continue fechando seu Outlook corretamente

O Outlook tende a travar se você fechar o Outlook incorretamente com frequência, como forçá-lo a fechar devido a quedas repentinas de energia. Toda vez que seu Outlook travar, seu arquivo PST também sofrerá. Depois que seu arquivo PST for comprometido, você gastará muito mais esforços para recuperar o Outlook danificado dados do que proteção diária. Nesse caso, o scanpst.exe não ajudará muito. Você não tem escolha a não ser recorrer a uma ferramenta mais potente, como DataNumen Outlook Repair.

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 SQL Server fixo e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com