Hoe de adressen van ontvangers controleren voordat ze via Outlook worden verzonden?

Soms mist u het toevoegen van enkele belangrijke ontvangers in de velden Aan, CC of BCC tijdens het verzenden van e-mails via Outlook. Hier kan ik een methode introduceren om te controleren of de specifieke e-mailadressen zijn toegevoegd voordat ze via Outlook worden verzonden.

Controleer adressen voordat u met VBA-code verzendt

Controleer adressen voordat u met VBA-code verzendt

Hier heb ik twee codes die je kunnen helpen bij het oplossen van deze klus, je kunt iedereen kiezen die je nodig hebt.

1. druk op Alt+F11 keys om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. Dubbelklik DezeOutlookSessie oppompen van Project1 om de code-editor te openen, kopieer en plak onderstaande code in de editor.

VBA: controleer het adres van de ontvanger in het veld Aan voordat u het verzendt

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 controleer het adres van de ontvanger alvorens te verzenden 1

In de code kun je wijzigen ("''''") aan de echte ontvangers die je nodig hebt.

3. Dan ook in de Microsoft Visual Basic voor toepassingen venster klikt Tools > Referenties. Check Microsoft Scripting-runtime selectievakje in Referenties-Project1 dialoogvenster.

doc controleer het adres van de ontvanger alvorens te verzenden 2

doc controleer het adres van de ontvanger alvorens te verzenden 3

4. klikken OK en bewaar de code.

Als de opgegeven ontvangers niet in het veld Aan verschijnen tijdens het verzenden van e-mails, verschijnt er een dialoogvenster om u eraan te herinneren of u de e-mail moet verzenden.
doc controleer het adres van de ontvanger alvorens te verzenden 4

Met bovenstaande code controleert het alleen de e-mailadressen in Naar veld, als u wilt inchecken Naar, CC en BCC velden kunt u onderstaande code gebruiken.

VBA: controleer het adres van de ontvanger in de velden Aan / CC / BCC voordat u verzendt

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

Met deze code hoeft u niet te controleren Microsoft Scripting-runtime aankruisvak, sla de code gewoon direct op om van kracht te worden.