Wie blockiert man in Outlook ausgehende E-Mails an eine bestimmte Adresse?

AutorXiaoyang Änderungsdatum2024-09-18

Im Allgemeinen sendet Outlook E-Mails an alle gültigen E-Mail-Adressen und bietet keine integrierte Funktion, um das Senden an eine bestimmte Adresse zu blockieren. Manchmal möchten Sie jedoch verhindern, dass versehentlich oder absichtlich E-Mails an eine bestimmte Adresse in Outlook gesendet werden. In diesem Fall zeigt Ihnen dieses Tutorial einen VBA-Code, mit dem Sie genau das erreichen können.

Blockieren von ausgehenden E-Mails an eine bestimmte Adresse mit VBA-Code

Der folgende VBA-Code unterstützt Sie dabei – so geht’s:

1. Starten Sie Outlook und halten Sie anschließend die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie anschließend im Bereich ThisOutlookSession auf Project-Project1, und kopieren Sie den folgenden Code in das leere Codefenster:

VBA-Code: Blockieren von ausgehenden E-Mails an eine bestimmte Adresse

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

Hinweis: Im obigen Code sollten Sie E-Mail-Adresse durch Ihre eigene Adresse ersetzen.

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

3. Schließen Sie anschließend das Codefenster mit „Speichern und schließen“. Sobald Sie nun eine E-Mail versenden und die betreffende E-Mail-Adresse in der Empfängerliste erkannt wird, erscheint eine Meldung wie im folgenden Screenshot gezeigt. Wenn Sie auf Nein klicken, wird die entsprechende E-Mail-Adresse sofort gelöscht.

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

4.Nach dem Senden der E-Mail können Sie deren Empfänger im Ordner Gesendete Elementeüberprüfen – die betreffende E-Mail-Adresse wurde aus den Empfängern ausgeschlossen (siehe Screenshot):

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

KI-E-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (Ein-Klick-Zauber!)

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem KI-E-Mail-Assistenten von Kutools für Outlook – einem leistungsstarken Tool, das aus Ihren bisherigen E-Mails lernt, um intelligente und präzise Antworten vorzuschlagen, Ihren E-Mail-Inhalt zu optimieren und Ihnen das mühelose Verfassen und Überarbeiten von Nachrichten zu ermöglichen.

Diese Funktion unterstützt:

Intelligente Antworten: Erhalten Sie maßgeschneiderte, präzise und sofort einsatzbereite Antworten, die auf Ihren bisherigen Gesprächen basieren.
Verbesserter Inhalt: Verbessern Sie Ihren E-Mail-Text automatisch – für mehr Klarheit und Wirkung.
Müheloses Verfassen: Geben Sie einfach Stichwörter ein und überlassen Sie den Rest der KI – mit mehreren Schreibstilen.
Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
Zusammenfassung: Erhalten Sie sofort prägnante Übersichten über lange E-Mails.
Globale Reichweite: Übersetzen Sie Ihre E-Mails mühelos in jede gewünschte Sprache.

Diese Funktion unterstützt:

Intelligente E-Mail-Antworten
Optimierter Inhalt
Stichwortbasierte Entwürfe
Intelligente Inhaltserweiterung
E-Mail-Zusammenfassung
Mehrsprachige Übersetzung

Warten Sie nicht –laden Sie jetzt den KI-E-Mail-Assistenten herunter und genießen Sie!

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

🤖KUTOOLS AI:Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – einschließlich Beantworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …

📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …

📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …

🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...

👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...

👩🏼‍🤝‍👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...

Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Zum Kauf gehen

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)

Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!

✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint

Über das Paket ⬇ Das Paket herunterladen 💳 Das Paket kaufen