Direkt zum Inhalt

Wie überprüfe ich Empfängeradressen vor dem Senden über Outlook?

In einigen Fällen kann es vorkommen, dass Sie beim Senden von E-Mails über Outlook einige wichtige Empfänger nicht in die Felder An, CC oder BCC einfügen. Hier kann ich eine Methode vorstellen, mit der überprüft werden kann, ob die spezifischen E-Mail-Adressen hinzugefügt wurden, bevor über Outlook gesendet wird.

Überprüfen Sie die Adressen, bevor Sie mit VBA-Code senden


Überprüfen Sie die Adressen, bevor Sie mit VBA-Code senden

Hier habe ich zwei Codes, die Ihnen bei der Lösung dieses Jobs helfen können. Sie können jeden auswählen, den Sie benötigen.

1. Drücken Sie Alt + F11 kzu aktivieren Microsoft Visual Basic für Applikationen Fenster.

2. Doppelklick DieseOutlookSession von Project1 Bereich, um den Code-Editor zu öffnen, kopieren Sie den folgenden Code und fügen Sie ihn in den Editor ein.

VBA: Überprüfen Sie vor dem Senden die Empfängeradresse im Feld An

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("", "", "")
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

doc Überprüfen Sie die Empfängeradresse, bevor Sie 1 senden

Im Code können Sie ändern ("""""") an die realen Empfänger, die Sie benötigen.

3. Dann auch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Bibliographie. Scheck Microsoft Scripting-Laufzeit Kontrollkästchen in Referenzen-Projekt1 Dialog.

doc Überprüfen Sie die Empfängeradresse, bevor Sie 2 senden doc Pfeil rechts doc Überprüfen Sie die Empfängeradresse, bevor Sie 3 senden

4 Klicken OK und speichern Sie den Code.

Wenn die angegebenen Empfänger beim Senden von E-Mails nicht im Feld An angezeigt werden, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, ob Sie die E-Mail senden sollen.
doc Überprüfen Sie die Empfängeradresse, bevor Sie 4 senden

Mit dem obigen Code werden nur die E-Mail-Adressen eingecheckt Zu Feld, wenn Sie einchecken möchten Zu, CC und BCC Felder können Sie unter Code verwenden.

VBA: Überprüfen Sie vor dem Senden die Empfängeradresse in den Feldern An / CC / BCC

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 = ""
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 Sub

Mit diesem Code müssen Sie nicht überprüfen Microsoft Scripting-Laufzeit Aktivieren Sie das Kontrollkästchen, um den Code direkt zu speichern.


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations