Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'inscrire
x

or

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

Dans certains cas, vous risquez de ne pas ajouter certains destinataires importants dans les champs À, CC ou BCC lors de l'envoi de messages électroniques via Outlook. Ici, je peux introduire une méthode pour vérifier si les adresses email spécifiques ont été ajoutées avant d'envoyer via Outlook.

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

Répondre à tous M'exclure moi-même dans Outlook

Lorsque nous utilisons Répondre à toutes les fonctions dans Outlook, nous pouvons également ajouter nos comptes dans le champ À si les e-mails que vous avez reçus contiennent deux autres comptes. Dans ce cas, vous pouvez supprimer vos comptes des champs À et CC. Ktools pour Outlook's Je m'appelle peut vous faire une faveur sur la résolution de ce travail rapidement. Seulement besoin d'un clic, tous les comptes myselft dans Outlook seront supprimés des champs À et CC. Cliquez pour l'essai gratuit de 45 days!
doc reply exclure le compte
doc arrow dowm

doc reply exclure le compte 2
Kutools pour Outlook: avec des dizaines de compléments Outlook pratiques, gratuits à essayer sans limitation dans les jours 45.

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

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

1. presse Alt + F11 kEys pour permettre Microsoft Visual Basic pour applications fenêtre.

2. Double-cliquez ThisOutlookSession De Project1 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 (objet ByVal en tant qu'objet, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () en tant que Variant Dim xAddress As String Dim xRecipient en tant que destinataire Dim xPrompt en tant que String Dim xYesNo As Entier Dim xDictionary As Scripting.Dictionary En erreur Resume Suivant Définir xDictionary = Nouveau Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "exemple3@126.com") Pour i = LBound (xAddressArr) Pour UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i pour chaque xRecipient dans Item.Recipients si xRecipient.Type = olTo alors si xDictionary.Exists (xRecipient.Address) puis xDictionary.Remove xRecipient.Address End If Next si xDictionary.Count = 0 alors GoTo L1 pour i = 0 à xDictionary.Count - 1 Si xAddress = "" Puis xAddress = xDictionary.Keys (i) Sinon xAddress = xAddress + ";" & xDictionary.Keys (i) Fin Si Next x xPrompt = "Vous n'envoyez pas ceci à: "& xAddress &" Êtes-vous sûr de vouloir envoyer le mail? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools pour Outlook") Si xYesNo = vbNo Then Cancel = True L1: Définir xRecipient = Nothing Définir 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 > Les références. Chèque Microsoft Scripting Runtime case à cocher dans Références-Project1 dialogue.

doc vérifier l'adresse du destinataire avant d'envoyer 2 doc arrow droite doc vérifier l'adresse du destinataire avant d'envoyer 3

4. Cliquez OK et enregistrer 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 vérifie uniquement les adresses e-mail dans À champ, si vous voulez vous enregistrer À, CC 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 (élément ByVal en tant qu'objet, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients As Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos As Entier Dim xYesNo En Integer Dim xPrompt En Chaîne Dim xAddress As String En cas d'erreur Resume Next If Item. Classe <> olMail puis Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Pour chaque xRecipient dans xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Si xPos = 0 Puis xPrompt = "Vous envoyez ceci à "& xAddress &" Êtes-vous sûr de vouloir l'envoyer? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools pour Outlook") Si xYesNo = vbNo Then Cancel = True Fin Si Suivant xRecipient End Sub

Avec ce code, vous n'avez pas besoin de vérifier Microsoft Scripting Runtime case à cocher, il suffit d'enregistrer directement le code pour prendre effet.


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

  • CC automatique / BCC par les règles lors de l'envoi d'email; 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 mail est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à beaucoup d'emails en secondes; Ajout automatique de message d'accueil quand répondez; Ajouter la date au sujet ...
  • Outils de pièce jointe: Gérer toutes les pièces jointes dans tous les courriers, Auto Detach, Compresser tout, Renommer tout, Sauvegarder tout ... Rapport rapide, Compter les mails sélectionnés...
  • Puissants courriers indésirables par la coutume; Supprimer les e-mails et les contacts en double... Vous permet de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.