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 du 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("", "", "")
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 ("""""") aux vrais destinataires dont vous avez besoin.

3. Puis aussi dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Bibliographie. 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 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 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 = ""
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.