Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe voorkom je het verzenden van uitgaande e-mails naar een specifiek adres in Outlook?

Author Xiaoyang Last modified

Over het algemeen stuurt Outlook e-mails naar alle normale e-mailadressen en kan het niet voorkomen dat er e-mails worden verstuurd naar een specifiek e-mailadres. Maar soms moet je mogelijk voorkomen dat e-mails naar een bepaald e-mailadres in Outlook worden gestuurd. In dit geval introduceert deze handleiding een VBA-code om deze taak op te lossen.

Voorkom uitgaande e-mails naar een specifiek adres met VBA-code

De volgende VBA-code kan je helpen, doe het als volgt:

1. Start Outlook, en houd vervolgens de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik vervolgens op ThisOutlookSession in het Project-Project1-paneel, en kopieer en plak vervolgens de onderstaande code in het lege codevenster:

VBA-code: Blokkeer uitgaande e-mails naar een specifiek adres

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub
Notitie: In de bovenstaande code moet je het e-mailadres wijzigen naar jouw eigen adres.

doc-block-email-to-an-address-1

3. Sla daarna het codevenster op en sluit het. Nu, wanneer je een e-mail verstuurt en het specifieke e-mailadres wordt gevonden in de lijst met ontvangers, zal er een pop-upmelding verschijnen zoals in de onderstaande schermafbeelding te zien is. Klik op Nee, dan wordt het specifieke e-mailadres onmiddellijk verwijderd.

doc-block-email-to-an-address-2

4. Nadat je de e-mail hebt verzonden, kun je de ontvangers controleren in de map Verzonden Items; het bepaalde e-mailadres is uitgesloten van de ontvangers, zie onderstaande schermafbeelding:

doc-block-email-to-an-address-3

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.
doc ai email handle

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 Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

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

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

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

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

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

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

kutools for outlook features1 kutools for outlook features2

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

  • ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
  • 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
  • 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint