Hoe controleer je ontvangeradressen voordat je verzendt via Outlook?

Soms vergeet je om belangrijke ontvangers toe te voegen aan de Aan, CC of BCC velden bij het versturen van e-mails via Outlook. Hier introduceer ik een methode om te controleren of specifieke e-mailadressen zijn toegevoegd voordat je verzendt via Outlook.

Controleer adressen voordat je verzendt met VBA-code

Controleer adressen voordat je verzendt met VBA-code

Hier heb ik twee codes die je kunnen helpen bij deze taak; je kunt kiezen welke je nodig hebt.

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik op ThisOutlookSession in het Project1-paneel om de code-editor te openen, kopieer en plak de onderstaande code in de editor.

VBA: controleer ontvangeradres in het 'Aan'-veld voordat je verzendt

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

In de code kun je ("example1@126.com", "example2@126.com", "example3@126.com") wijzigen naar de echte ontvangers die je nodig hebt.

3. Open vervolgens ook in het venster Microsoft Visual Basic for Applications het menu Tools en selecteer References. Vink het vakje Microsoft Scripting Runtime aan in het dialoogvenster References-Project1.

4. Klik op OK en sla de code op.

Als de gespecificeerde ontvangers niet verschijnen in het 'Aan'-veld tijdens het versturen van e-mails, zal er een dialoogvenster verschijnen om je te herinneren of je de e-mail wilt versturen.

Met bovenstaande code wordt alleen gecontroleerd op e-mailadressen in het 'Aan'-veld. Als je ook wilt controleren in de 'Aan', 'CC' en 'BCC'-velden, kun je de onderstaande code gebruiken.

VBA: controleer ontvangeradres in 'Aan/CC/BCC'-velden voordat je verzendt

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

Met deze code hoef je het selectievakje Microsoft Scripting Runtime niet aan te vinken; sla de code gewoon rechtstreeks op om deze actief te maken.

AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.

Deze functie ondersteunt:

• Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
• Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
• Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
• Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
• Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
• Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.

Deze functie ondersteunt:

• Slimme e-mailreacties
• Geoptimaliseerde inhoud
• Op trefwoorden gebaseerde concepten
• Intelligente inhoudsuitbreiding
• E-mailsamenvatting
• Meertalige vertaling

Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet

---

Beste productiviteitstools voor Office

Breaking News: Kutools voor Outlook lanceert gratis versie!

Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...

🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...

👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...

Ontgrendel direct Kutools voor Outlook met één klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functielijst van Kutools voor Outlook Gratis versie downloaden Upgrade naar Professional