Note: The other languages of the website are Google-translated. Back to English
English English

Comment vérifier les adresses des destinataires avant d'envoyer via Outlook?

Dans certains cas, vous pouvez manquer l'ajout de certains destinataires importants dans les champs À, CC ou BCC lors de l'envoi d'e-mails via Outlook. Ici, je peux introduire une méthode pour vérifier si les adresses e-mail spécifiques ont été ajoutées avant d'envoyer via Outlook.

Vérifiez les adresses avant d'envoyer avec le code VBA


Vérifiez les adresses avant d'envoyer avec le code VBA

Ici, j'ai deux codes qui peuvent vous aider à résoudre ce travail, vous pouvez choisir n'importe qui selon vos besoins.

1. presse Alt + F11keys pour activer Microsoft Visual Basic pour applications fenêtre.

2. Double-cliquez Cette session Outlook À partir de Project1 volet pour ouvrir l'éditeur de code, copiez et collez le code ci-dessous dans l'éditeur.

VBA: vérifiez l'adresse du destinataire dans le champ À avant d'envoyer

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("example1@126.com", "example2@126.com", "example3@126.com")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

doc vérifier l'adresse du destinataire avant d'envoyer 1

Dans le code, vous pouvez changer ("example1@126.com", "example2@126.com", "example3@126.com") aux vrais destinataires dont vous avez besoin.

3. Puis aussi dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Références. Chèque Exécution de scripts Microsoft case à cocher Références-Projet1 dialogue.

doc vérifier l'adresse du destinataire avant d'envoyer 2 doc flèche droite doc vérifier l'adresse du destinataire avant d'envoyer 3

4. Cliquez OK et enregistrez le code.

Maintenant, si les destinataires spécifiés n'apparaissent pas dans le champ À lors de l'envoi d'e-mails, une boîte de dialogue apparaîtra pour vous rappeler si vous souhaitez envoyer l'e-mail.
doc vérifier l'adresse du destinataire avant d'envoyer 4

Avec le code ci-dessus, il ne vérifie que les adresses e-mail dans À champ, si vous souhaitez vous enregistrer À, CC et des tours BCC champs, vous pouvez utiliser le code ci-dessous.

VBA: vérifiez l'adresse du destinataire dans les champs To / CC / BCC avant d'envoyer

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = "example1@gmail.com"
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

Avec ce code, vous n'avez pas besoin de vérifier Exécution de scripts Microsoft case à cocher, enregistrez simplement directement le code pour qu'il prenne effet.


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés