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
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.
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.
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 Pro: Batch 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.