Comment recevoir un avertissement lors de l'envoi d'un e-mail à un domaine externe dans Outlook?
Lorsque vous utilisez Outlook, comment empêcher l'envoi accidentel d'e-mails à des destinataires extérieurs à votre entreprise? En fait, vous pouvez afficher une boîte d'avertissement lors de l'envoi d'un courrier électronique à un domaine externe dans Outlook. Cet article présentera une méthode VBA pour y parvenir.
Recevez un avertissement lors de l'envoi d'un e-mail à un domaine externe avec le code VBA
Recevez un avertissement lors de l'envoi d'un e-mail à un domaine externe avec le code VBA
Le code VBA suivant peut vous aider à recevoir un avertissement lors de l'envoi d'un e-mail à un domaine externe dans Outlook. Veuillez faire comme suit.
1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook ouvrir le Cette session Outlook (code) fenêtre, puis copiez ci-dessous le code VBA dans la fenêtre. Voir la capture d'écran:
Code VBA: recevez un avertissement lors de l'envoi d'un e-mail à un domaine externe
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
Notes: Dans le code, "@ addin99.com"Est le domaine de messagerie interne auquel vous enverrez des e-mails. Veuillez le changer selon vos besoins.
À partir de maintenant, lorsque vous cliquez sur le bouton Envoyer pour envoyer des e-mails au domaine de messagerie externe (pas au domaine de messagerie interne que vous avez spécifié dans le code VBA), une boîte d'avertissement apparaîtra comme ci-dessous.
Articles Liés:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!