Cookies helpen ons onze services te leveren. Door gebruik te maken van onze diensten, gaat u akkoord met ons gebruik van cookies.
Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe ontvangersadressen controleren voordat ze via Outlook verzenden?

In sommige gevallen mis je misschien het toevoegen van een aantal belangrijke ontvangers in To, CC of BCC-velden 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 zijn verzonden.

Controleer adressen voordat u met VBA-code verzendt

Allen beantwoorden sluiten Mij uit in Outlook

Wanneer we de functie Allen beantwoorden in Outlook gebruiken, kunnen we onze accounts ook toevoegen aan het veld Aan als de e-mails die u hebt ontvangen nog twee accounts bevatten. In dit geval wilt u misschien uw accounts verwijderen uit de velden Aan en CC. Ktools voor Outlook's Mijn namen kan je een plezier doen door deze taak snel op te lossen. Slechts één klik nodig, alle Mystery-accounts in Outlook worden verwijderd uit To- en CC-velden. Klik voor gratis proefperiode van 45 dagen!
doc antwoord sluit account uit
doc arrow dowm

doc antwoord sluit account 2 uit
Kutools voor Outlook: met tientallen handige Outlook add-ins, gratis om zonder beperking te proberen in 45 dagen.

Controleer adressen voordat u met VBA-code verzendt

Hier heb ik twee codes die u kunnen helpen bij het oplossen van deze taak, u kunt iedereen kiezen die u nodig heeft.

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

2. Dubbelklik ThisOutlookSession vanaf Project1 deelvenster om de code-editor te openen, kopieer en plak onderstaande code in de editor.

VBA: controleer het adres van de ontvanger in het veld To vóór het verzenden

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () As Variant Dim xAddress As String Dim xRecipient As Ontvanger Dim xPrompt As String Dim xYesNo Als geheel dimmen xDictionary als scripting.Dictionary Aan Fout Doorgaan Volgende 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 voor i = 0 naar xDictionary.Count - 1 Als xAddress = "" Vervolgens xAddress = xDictionary.Keys (i) Anders xAddress = xAddress + ";" & xDictionary.Keys (i) Einde als volgende ik xPrompt = "U stuurt dit niet naar: "& xAddress &". Weet u zeker dat u de e-mail wilt verzenden? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools voor Outlook") Als xYesNo = vbNo Then Cancel = True L1: Set xRecipient = Nothing Set xDictionary = Nothing End Sub

controleer het adres van de ontvanger voordat u 1 verzendt

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

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

controleer het adres van de ontvanger voordat u 2 verzendt doc pijl rechts controleer het adres van de ontvanger voordat u 3 verzendt

4. klikken OK en bewaar de code.

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

Met bovenstaande code controleert u 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 To / CC / BCC vóór verzending

Private Sub Application_ItemSend (ByVal-item als object, Annuleren als Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients als Outlook.Recipients Dim xRecipient als Outlook.Recipient Dim xPos als geheel dimmen xYesNo als geheel dimmen xPrompt als tekenreeks Dim xAddress als tekenreeks aan Fout hervatten volgende item. Klasse <> olMail Then Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Voor elke xRecipient In xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Als xPos = 0 Then xPrompt = "U verzendt dit naar "& xAddress &". Weet u zeker dat u het wilt verzenden? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools voor Outlook") Als xYesNo = vbNo Then Cancel = True End if Next xRecipient End Sub

Met deze code hoeft u niet te controleren Microsoft Scripting Runtime checkbox, sla de code direct op om effect te hebben.



Kutools for Outlook

Meer dan 100 geavanceerde functies voor Outlook 2010, 2013, 2016, 2019 en 365

screen shot kutools voor outlook tiny voor banner 201812

Meer functies | Gratis download | Alleen $ 39.00 voor honderden functies

Say something here...
symbols left.
You are guest ( Sign Up? )
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.