Cookies hjälper oss att leverera våra tjänster. Genom att använda våra tjänster samtycker du till vår användning av cookies.
Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur kontrollerar du mottagaradresser innan du skickar via Outlook?

I vissa fall kan du missa att lägga till några viktiga mottagare i To, CC eller BCC-fält när du skickar e-post via Outlook. Här kan jag presentera en metod för att kontrollera om de specifika e-postadresserna har lagts till innan de skickas via Outlook.

Kontrollera adresserna innan du skickar med VBA-kod

Svara All exclude Myself in Outlook

När vi använder Svara på alla funktioner i Outlook kan vi lägga till våra konton i Till-fält också om de e-postmeddelanden du mottar innehåller ytterligare två dina konton. I det här fallet kanske du vill ta bort dina konton från fälten Till och CC. Ktools för Outlook's Mitt namn är kan hjälpa dig att lösa detta jobb snabbt. Behöver bara ett klick, alla myselftkonton i Outlook kommer att tas bort från To och CC-fält. Klicka för 45-dagar gratis prov!
doc-svar utesluter konto
doc pil dowm

doc-svaret utesluter konto 2
Kutools for Outlook: med dussintals praktiska Outlook-tillägg, gratis att försöka utan begränsning på 45-dagar.

Kontrollera adresserna innan du skickar med VBA-kod

Här har jag två koder som kan hjälpa dig att lösa det här jobbet, du kan välja någon som du behöver.

1. Tryck Alt + F11 keys att aktivera Microsoft Visual Basic för applikationer fönster.

2. Dubbelklicka ThisOutlookSession från Project1 rutan för att öppna kodredigeraren, kopiera och klistra in under koden till redigeraren.

VBA: Kontrollera mottagarens adress i Till fält innan du skickar

Privat Sub Application_ItemSend (ByVal Item Som Objekt, Avbryt Som Booleskt) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Som Variant Dim xAddress Som String Dim xRecipient Som Mottagare Dim xPrompt Som String Dim xYesNo Som Integer Dim xDictionary As Scripting.Dictionary På Fel Fortsätt Nästa Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") För i = LBound (xAddressArr) Till UBound (xAddressArr) xDictionary.Add xAddressArr ), True Next I För varje xRecipient In Item.Recipients Om xRecipient.Type = olTo Då Om xDictionary.Exists (xRecipient.Address) Då xDictionary.Remove xRecipient.Address Avsluta Om Nästa Om xDictionary.Count = 0 Then GoTo L1 För i = 0 till xDictionary.Count - 1 Om xAddress = "" Då xAddress = xDictionary.Keys (i) Annan xAddress = xAddress + ";" & xDictionary.Keys (i) Avsluta om nästa jag xPrompt = "Du skickar inte detta till: "& xAddress &". Är du säker på att du vill skicka Mail? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Om xYesNo = vbNo Då Avbryt = True L1: Ange xRecipient = Inget Set xDictionary = Inget Slut Del

doc kolla mottagarens adress innan du skickar 1

I koden kan du ändra ("example1@126.com", "example2@126.com", "example3@126.com") till de verkliga mottagarna du behöver.

3. Då också i Microsoft Visual Basic för applikationer fönstret klickar verktyg > referenser. Check Microsoft Scripting Runtime kryssrutan in Referenser-Project1 dialog.

doc kolla mottagarens adress innan du skickar 2 doc pil höger doc kolla mottagarens adress innan du skickar 3

4. klick OK och spara koden.

Nu Om de angivna mottagarna inte visas i To-fältet när du skickar e-postmeddelanden kommer en dialog att dyka upp för att påminna dig om att skicka e-postmeddelandet.
doc kolla mottagarens adress innan du skickar 4

Med ovanstående kod kontrollerar du bara e-postadresserna i Till fält, om du vill checka in Till, CC och BCC fält, du kan använda underkoden.

VBA: Kontrollera mottagarens adress i To / CC / BCC-fälten innan du skickar

Privat Sub Application_ItemSend (ByVal Item Som Objekt, Avbryt Som Booleskt) 'UpdatebyExtendoffice20180523 Dim xRecipients Som Outlook.Recipients Dim xRecipient Som Outlook.Recipient Dim xPos Som Integer Dim xYesNo Som Integer Dim xPrompt Som String Dim xAddress Som String On Error Fortsätt Nästa Om Artikel. Klass <> olMail sedan avsluta deluppsättning xRecipients = Item.Recipients xAddress = "example1@gmail.com" För varje xRecipient I xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Om xPos = 0 Då xPrompt = "Du skickar detta till "& xAddress &". Är du säker på att du vill skicka den? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Om xYesNo = vbNo Då Avbryt = True End If Next xRecipient End Sub

Med den här koden behöver du inte kolla Microsoft Scripting Runtime kryssrutan, spara bara koden direkt för att träda i kraft.



Kutools för Outlook

Mer än 100 avancerade funktioner för Outlook 2010, 2013, 2016, 2019 och 365

skärmsläckare kutools för outlook liten för banner 201812

Mer funktioner | Gratis nedladdning | Bara $ 39.00 för hundratals funktioner

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.