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
- Em primeiro lugar, start seu programa Outlook.
- Em seguida, pressione os atalhos de teclado "Alt + F11".
- Em seguida, você terá acesso à janela do editor VBA do Outlook.
- Em seguida, abra o projeto “ThisOutlookSession”.
- 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 para o domínio da sua própria empresa Se 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 = "Tem certeza que deseja enviar este e-mail para fora da sua empresa? " nWarning = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirmar e-mail para organização externa") If nWarning = vbNo Then Cancel = True End If End If End If End Sub
- Depois disso, você deve assinar este código.
- Posteriormente, altere as configurações de macro do Outlook para permitir as macros assinadas.
- 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