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 à 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
Dans le code, vous pouvez remplacer ("exemple1@126.com", "exemple2@126.com", "exemple3@126.com") par les véritables 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.
 |  |  |
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.
Avec le code ci-dessus, il ne vérifie que les adresses e-mail dans À champ, si vous souhaitez vous enregistrer À, CC et 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 SubAvec 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.
AI Mail Assistant dans Outlook : réponses plus intelligentes, communication plus claire (magie en un clic !) un devis GRATUIT
Rationalisez vos tâches Outlook quotidiennes avec l'assistant AI Mail de Kutools for Outlook. Cet outil puissant apprend de vos e-mails passés pour offrir des réponses intelligentes et précises, optimiser le contenu de vos e-mails et vous aider à rédiger et affiner vos messages sans effort.
Cette fonctionnalité prend en charge :
- Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées : personnalisées, précises et prêtes à l'emploi.
- Contenu amélioré : affinez automatiquement le texte de votre e-mail pour plus de clarté et d'impact.
- Composition sans effort : fournissez simplement des mots-clés et laissez l'IA gérer le reste, avec plusieurs styles d'écriture.
- Extensions intelligentes : développez vos idées avec des suggestions contextuelles.
- Récapitulatif : obtenez instantanément des aperçus concis des longs e-mails.
- Portée mondiale : traduisez facilement vos e-mails dans n’importe quelle langue.
Cette fonctionnalité prend en charge :
- Réponses intelligentes par e-mail
- Contenu optimisé
- Brouillons basés sur des mots clés
- Extension de contenu intelligente
- Résumé par e-mail
- Traduction multilingue
Mieux encore, cette fonctionnalité est complètement faim pour toujours! N'attendez pas—téléchargez AI Mail Assistant maintenant et profitez-en!
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
