Hoe blokkeert u uitgaande e-mails naar een specifiek adres in Outlook?
Over het algemeen verzendt Outlook e-mails naar elk standaard e-mailadres en biedt het geen ingebouwde optie om het verzenden naar een specifiek e-mailadres te blokkeren. Toch kan het voorkomen dat u het verzenden van e-mails naar een bepaald adres in Outlook wilt voorkomen. In dat geval biedt deze handleiding een VBA-code om die taak op te lossen.
Blokkeer uitgaande e-mails naar een specifiek adres met VBA-code
De volgende VBA-code kan u helpen; volg deze stappen:
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 deelvenster Project-Project1 en plak 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
3. Sluit het codevenster daarna met Opslaan en sluiten. Zodra u een e-mail verzendt en het specifieke e-mailadres in de lijst met ontvangers wordt aangetroffen, verschijnt een waarschuwingsbericht zoals op de onderstaande afbeelding. Klik op Nee, dan wordt het betreffende e-mailadres onmiddellijk verwijderd.
4.Na het verzenden van de e-mail kunt u de ontvangers controleren in de map Verzonden Items; het desbetreffende E-mailadres is uitgesloten van de ontvangerslijst, zie de afbeelding:
AI Mail Assistant in Outlook: Slimmere antwoorden, helderder communicatie (magie met één klik!)
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert van uw eerdere e-mails om intelligente, nauwkeurige antwoorden te genereren, uw e-mailinhoud te optimaliseren en u moeiteloos te ondersteunen bij het opstellen en verbeteren van berichten.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld op basis van uw eerdere gesprekken — persoonlijk, nauwkeurig en direct klaar voor gebruik.
- Laat uw e-mailtekst automatisch verfijnen voor meer duidelijkheid en impact.
- Moeiteloos opstellen: Geef gewoon trefwoorden op en laat AI de rest doen, in meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten moeiteloos uit met contextbewuste suggesties.
- Samenvatting: Ontvang direct beknopte samenvattingen van lange e-mails.
- Wereldwijde reikwijdte: Vertaal uw e-mails moeiteloos naar elke gewenste taal.
Deze functie ondersteunt:
- Slimme e-mailantwoorden
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Vertaling in meerdere talen
Beste Office-productiviteitstools
Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!
📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…
📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…
📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…
🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...
👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...
👩🏼🤝👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!
🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!
- ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
- 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
- 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint