Como obter um aviso ao enviar e-mail para um domínio externo no Outlook?
Ao usar o Outlook, como você pode evitar o envio de e-mails acidentalmente para destinatários fora da sua empresa? Na verdade, você pode exibir uma caixa de aviso ao enviar e-mail para um domínio externo no Outlook. Este artigo apresentará um método VBA para alcançá-lo.
Receba um aviso ao enviar e-mail para um domínio externo com código VBA
Receba um aviso ao enviar e-mail para um domínio externo com código VBA
O seguinte código VBA pode ajudá-lo a obter um aviso ao enviar e-mail para um domínio externo no Outlook. Faça o seguinte.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook para abrir o ThisOutlookSession (Código) janela e, em seguida, copie o código VBA abaixo para a janela. Veja a imagem:
Código VBA: receba aviso ao enviar e-mail para domínio externo
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
Note: No código, “@ addin99.com”É o domínio de email interno para o qual você enviará emails. Por favor, altere-o conforme necessário.
De agora em diante, ao clicar no botão Enviar para enviar e-mails para o domínio de e-mail externo (não o domínio de e-mail interno que você especificou no código VBA), uma caixa de aviso aparecerá conforme a imagem mostrada abaixo.
Artigos relacionados:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!