Wie kann man Empfängeradressen vor dem Senden über Outlook überprüfen?
Manchmal vergessen Sie möglicherweise, einige wichtige Empfänger in die Felder An, CC oder BCC einzufügen, während Sie E-Mails über Outlook senden. Hier möchte ich Ihnen eine Methode vorstellen, mit der Sie überprüfen können, ob bestimmte E-Mail-Adressen hinzugefügt wurden, bevor Sie die E-Mail über Outlook versenden.
Adressen vor dem Senden mit VBA-Code überprüfen
Adressen vor dem Senden mit VBA-Code überprüfen
Hier habe ich zwei Codes, die Ihnen bei dieser Aufgabe helfen können. Sie können einen davon auswählen, je nachdem, was Sie benötigen.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Bereich Project1 auf ThisOutlookSession, um den Code-Editor zu öffnen. Kopieren Sie den folgenden Code und fügen Sie ihn in den Editor ein.
VBA: Überprüfen der Empfängeradresse im An-Feld vor dem Senden
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
Im Code können Sie ("example1@126.com", "example2@126.com", "example3@126.com") durch die tatsächlichen Empfänger ersetzen, die Sie benötigen.
3. Klicken Sie dann ebenfalls im Fenster Microsoft Visual Basic for Applications auf Extras > Verweise. Aktivieren Sie das Kontrollkästchen Microsoft Scripting Runtime im Dialogfeld Verweise - Project1.
 |  |  |
4. Klicken Sie auf OK und speichern Sie den Code.
Wenn die angegebenen Empfänger nicht im An-Feld erscheinen, während Sie E-Mails senden, wird ein Dialogfenster angezeigt, das Sie fragt, ob Sie die E-Mail trotzdem senden möchten.
Mit dem obigen Code wird nur das An-Feld überprüft. Wenn Sie auch die Felder An, CC und BCC überprüfen möchten, können Sie den folgenden Code verwenden.
VBA: Überprüfen der Empfängeradresse in den Feldern An/CC/BCC vor dem Senden
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 SubMit diesem Code müssen Sie das Kontrollkästchen Microsoft Scripting Runtime nicht aktivieren, sondern können den Code direkt speichern, damit er wirksam wird.
AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS
Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.
Diese Funktion unterstützt:
- Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
- Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
- Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
- Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
- Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
- Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.
Diese Funktion unterstützt:
- Intelligente E-Mail-Antworten
- Optimierter Inhalt
- Schlüsselwortbasierte Entwürfe
- Intelligente Inhaltserweiterung
- E-Mail-Zusammenfassung
- Mehrsprachige Übersetzung
Das Beste daran ist, dass diese Funktion für immer komplett kostenlos ist! Zögern Sie nicht – laden Sie den AI-Mail-Assistenten noch heute herunter und genießen Sie!
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
