Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijaviti se
x
or
x
x
Registrirajte se
x

or

Kako provjeriti adrese primatelja prije slanja putem programa Outlook?

U nekim trenucima možda ćete propustiti dodavanje nekih važnih primatelja u polja To, CC ili BCC tijekom slanja e-pošte putem programa Outlook. Ovdje mogu uvesti način da provjerim jesu li specifične adrese e-pošte dodane prije slanja putem programa Outlook.

Provjerite adrese prije slanja pomoću VBA koda

Odgovori svima izuzmi me iz perspektive

Kada koristimo Odgovoriti na sve funkcije u programu Outlook, možemo dodati i naše račune u polje To ako e-poruke koje primate sadrže još dva računa. U tom slučaju možda želite ukloniti svoje račune iz polja Prima i CC. Ktools za Outlook's Moje ime je može vam pomoći da brzo riješi taj posao. Potrebno je samo jedan klik, svi će myselft računi u programu Outlook biti uklonjeni iz polja To i CC. Kliknite 45 dana besplatno probno razdoblje!
odgovor za odgovor isključuje račun
doc arrow dowm

odgovor za odgovor isključuje račun 2
Kutools for Outlook: s desecima praktičnih dodataka za Outlook, slobodno možete isprobati bez ograničenja u 45 danima.

Provjerite adrese prije slanja pomoću VBA koda

Ovdje imam dva kodova koji vam mogu pomoći u rješavanju ovog posla, možete odabrati bilo koga što vam je potrebno.

1. tisak Alt + F11 komogućiti Microsoft Visual Basic for Applications prozor.

2. Dvostruki klik ThisOutlookSession iz Project1 oknu za otvaranje uređivača koda, kopirajte i zalijepite kôd ispod urednika.

VBA: provjerite adresu primatelja u polju Prima prije slanja

Privatni Sub Application_ItemSend (ByVal Item kao objekt, Odustani kao Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Kao varijanta Dim xAddress kao String Dim xRecipient Kao Primatelj Dim xPrompt kao String Dim xYesNo kao Integer Dim xDictionary kao Scripting.Dictionary Na Greška Nastavi Sljedeći Set xDictionary = Novi i za Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Za i = LBound (xAddressArr) U UBound (xAddressArr) xDictionary.Add xAddressArr (i ), Istinito Sljedeće I za svaki xRecipient u stavci.Recipients Ako xRecipient.Type = olTo onda ako xDictionary.Exists (xRecipient.Address) Zatim xDictionary.Remove xRecipient.Address End Ako Sljedeća Ako xDictionary.Count = 0 Zatim GoTo L1 Za i = 0 Da xDictionary.Count - 1 Ako xAddress = "" Zatim xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Završi ako sljedeći i xPrompt = "Ne šaljete ovo na: "& xAddress &" Jeste li sigurni da želite poslati poštu? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools za Outlook") Ako xYesNo = vbNo Zatim Poništi = Istina L1: Postavi xRecipient = Ništa Postavite xDictionary = Ništa End Sub

doc provjeriti adresu primatelja prije slanja 1-a

U kodu možete promijeniti ("example1@126.com", "example2@126.com", "example3@126.com") do pravih primatelja koje trebate.

3. Zatim također u Microsoft Visual Basic for Applications prozor, kliknite alat > Reference. Provjerite Runtime za Microsoft Scripting potvrdni okvir u Reference-Project1 dijaloški okvir.

doc provjeriti adresu primatelja prije slanja 2-a doc arrow right doc provjeriti adresu primatelja prije slanja 3-a

4. klik OK i spremite kod.

Sada Ako se navedeni primatelji ne pojavljuju u polju To tijekom slanja e-pošte, pojavit će se dijaloški okvir da vas podsjeti ako želite poslati e-poruku.
doc provjeriti adresu primatelja prije slanja 4-a

S gore navedenim kodom provjerava samo e-adrese u Do ako se želite prijaviti Do, CC i BCC polja, možete koristiti kôd ispod.

VBA: provjerite adresu primatelja u polju To / CC / BCC prije slanja

Privatni Sub Application_ItemSend (ByVal Item kao objekt, Odustani kao Boolean) UpdatebyExtendoffice20180523 Dim xRecipients Kao Outlook.Recipients Dim xRecipient Kao Outlook.Recipient Dim xPos kao Integer Dim xYesNo kao Integer Dimenzija xPrompt kao String Dim xAddress kao niz na pogrešku Nastavi Sljedeća Ako je stavka. Klasa <> olMail Zatim Izlaz Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Za svaki xRecipient u xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Ako xPos = 0 Zatim xPrompt = "Šaljete to "& xAddress &". Jeste li sigurni da ga želite poslati? xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools za Outlook") Ako xYesNo = vbNo onda Poništi = True End ako sljedeći xRecipient End Sub

S ovim kodom ne morate provjeravati Runtime za Microsoft Scripting potvrdite okvir, izravno spremite kôd da bi stupio na snagu.



Kutools za Outlook

Više od 100 naprednih funkcija za Outlook 2010, 2013, 2016, 2019 i 365

zaslon pucao kutools za Outlook mali za banner 201812

Dodatne mogućnosti | Besplatno preuzimanje | Samo $ 39.00 za stotine funkcija

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.