Cookies nám pomáhajú poskytovať naše služby. Využitím našich služieb, súhlasíte s našimi používanie cookies.
Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako skontrolovať adresy príjemcov pred odoslaním cez program Outlook?

V niektorých prípadoch vám môže chýbať pridanie niektorých dôležitých príjemcov do poľa To, CC alebo BCC pri odosielaní e-mailov cez Outlook. Tu môžem predstaviť metódu na kontrolu, či konkrétne e-mailové adresy boli pridané pred odoslaním prostredníctvom programu Outlook.

Skontrolujte adresy pred odoslaním pomocou kódu VBA

Odpoveď všetkým vylúčiť seba v programe Outlook

Keď použijeme funkciu Odpovedať všetkým v programe Outlook, môžeme pridať aj naše účty do poľa Komu, ak e-maily, ktoré získate, obsahujú ešte dva vaše účty. V tomto prípade možno budete chcieť odstrániť svoje účty z polí Komu a CC. Ktools pre aplikáciu Outlook's Moje meno je môže vám rýchlo pomôcť pri riešení tejto práce. Potrebujete iba jedno kliknutie, všetky účty Myslft v programe Outlook budú odstránené z polí Komu a CC. Kliknite na bezplatnú skúšobnú verziu 45 dní!
odpoveď doc nezahrňuje účet
doc arrow dowm

odpoveď doc nezahrňuje účet 2
Kutools for Outlook: s desiatkami užitočných doplnkov aplikácie Outlook, ktoré môžete bezplatne vyskúšať bez obmedzenia v dňoch 45.

Skontrolujte adresy pred odoslaním pomocou kódu VBA

Tu mám dva kódy, ktoré vám môžu pomôcť pri riešení tejto práce, môžete si vybrať niekoho, koľko potrebujete.

1. lis Alt + F11 keys na zapnutie Microsoft Visual Basic pre aplikácie okno.

2. Dvojité kliknutie ThisOutlookSession z Project1 otvorte editor kódov, skopírujte a prilepte kód do editora.

VBA: pred odoslaním skontrolujte adresu príjemcu v poli Komu

Private Sub Application_ItemSend (ByVal položka ako objekt, Zrušiť ako Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Ako Variant Dim xAddress ako reťazec Dim xRecipient ako príjemca Dim xPrompt ako reťazec Dim xYesNo ako celé číslo Dim xDictionary ako skriptovací. (XAddressArr) xDictionary.Add xAddressArr (i) (xAddressArr) xAddressArr (xAddressArr) xDictionary.Add xAddressArr (i) xAddressArr = Array ("example1@126.com", "example2@126.com" ), True Next i pre každý xRecipient v Item.Recipients Ak xRecipient.Type = olTo Potom ak xDictionary.Exists (xRecipient.Address) Potom xDictionary.Remove xRecipient.Address End Ak Next Ak xDictionary.Count = 3 Potom GoTo L126 Pre i = 0 Do xDictionary.Count - 1 Ak xAddress = "" Potom xAddress = xDictionary.Keys (i) Ostatné xAddress = xAddress + ";" & xDictionary.Keys (i) Koniec If Next i xPrompt = "Neposielame to na: "& xAddress &". Naozaj chcete odoslať poštu? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools pre Outlook") Ak xYesNo = vbNo Potom Cancel = True L0: Set xRecipient = Nič nastavené xDictionary = Nothing End Sub

doc skontrolovať adresu príjemcu pred odoslaním 1

V kóde sa môžete zmeniť ("example1@126.com", "example2@126.com", "example3@126.com") k skutočným príjemcom, ktoré potrebujete.

3. Potom aj v Microsoft Visual Basic pre aplikácie okno, kliknite na tlačidlo náradie > Referencie, Check Microsoft Scripting Runtime zaškrtávacie políčko Referencie-Project1 dialóg.

doc skontrolovať adresu príjemcu pred odoslaním 2 doc arrow vpravo doc skontrolovať adresu príjemcu pred odoslaním 3

4. cvaknutie OK a uložte kód.

Teraz Ak sa zadaní príjemcovia nezobrazia v poli Komu počas odosielania e-mailov, zobrazí sa dialógové okno, ktoré vám pripomenie, či chcete odoslať e-mail.
doc skontrolovať adresu príjemcu pred odoslaním 4

S vyššie uvedeným kódom skontrolujete iba e-mailové adresy v priečinku na poľa, ak sa chcete prihlásiť na, CC a BCC polia, môžete použiť nižšie uvedený kód.

VBA: skontrolovať adresu príjemcu v poli To / CC / BCC pred odoslaním

Private Sub Application_ItemSend (ByVal položka ako objekt, Zrušiť ako Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients ako Outlook.Recipients Dim xRecipient ako Outlook.Recipient Dim xPos ako celé číslo Dim xYesNo ako celé číslo Dim xPrompt ako reťazec Dim xAddress ako reťazec On Chyba Pokračovať ďalej Ak je položka. Trieda <> olMail Potom skončí podsada xRecipients = Item.Recipients xAddress = "example1@gmail.com" pre každého xRecipient v xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Ak xPos = 0 Potom xPrompt = to "& xAddress &". Naozaj ho chcete poslať? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools pre Outlook") Ak xYesNo = vbNo potom Cancel = True End Ak Next xRecipient End Sub

S týmto kódom nemusíte kontrolovať Microsoft Scripting Runtime začiarkavacie políčko, jednoducho priamo uložte kód, aby nadobudol účinnosť.



Kutools pre program Outlook

Viac ako rozšírené funkcie 100 pre aplikácie Outlook 2010, 2013, 2016, 2019 a 365

obrazovka shot kutools pre výhľad malý pre banner 201812

Ďalšie funkcie | Bezplatné stiahnutie | Iba $ 39.00 pre stovky funkcií

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.