Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

doc controleer het adres van de ontvanger alvorens te verzenden 1

In de code kun je wijzigen ("example1@126.com", "example2@126.com", "example3@126.com") aan de echte ontvangers die je nodig hebt.

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

doc controleer het adres van de ontvanger alvorens te verzenden 2 doc pijl naar rechts 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 als 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 = "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 Sub

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


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.