Note: The other languages of the website are Google-translated. Back to English

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

Im Allgemeinen sendet Outlook E-Mails an alle normalen E-Mail-Adressen und kann das Senden von E-Mails an eine bestimmte E-Mail-Adresse nicht blockieren. Aber manchmal müssen Sie möglicherweise verhindern, dass E-Mails an eine bestimmte E-Mail-Adresse in Outlook gesendet werden. In diesem Fall führt dieses Tutorial einen VBA-Code zum Lösen dieser Aufgabe ein.


Blockieren Sie ausgehende E-Mails an eine bestimmte Adresse mit VBA-Code

Der folgende VBA-Code kann Ihnen einen Gefallen tun, bitte tun Sie dies wie folgt:

1. Starten Sie Outlook und halten Sie es gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Doppelklicken Sie dann DieseOutlookSession von dem Projekt-Projekt1 Bereich, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Codefenster ein:

VBA-Code: Blockieren Sie ausgehende 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 die E-Mail-Adresse in Ihre eigene ändern.

3. Speichern und schließen Sie dann dieses Codefenster. Wenn Sie jetzt eine E-Mail senden und die spezifische E-Mail-Adresse in der Empfängerliste gefunden wird, wird eine Aufforderungsmeldung angezeigt, wie im folgenden Screenshot gezeigt. Klicken Neinwird die jeweilige E-Mail-Adresse umgehend gelöscht.

4. Nachdem Sie die E-Mail gesendet haben, können Sie die Empfänger in der überprüfen Gesendete Objekte Ordner wurde die bestimmte E-Mail-Adresse von den Empfängern ausgeschlossen, siehe Screenshot:


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte