Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak ověřit adresy příjemců před odesláním prostřednictvím aplikace Outlook?

V některých případech možná chybí přidání některých důležitých příjemců do polí Komu, CC nebo BCC při odesílání e-mailů prostřednictvím aplikace Outlook. Zde můžu zavést metodu kontroly, zda byly konkrétní e-mailové adresy přidány před odesláním prostřednictvím aplikace Outlook.

Zkontrolujte adresy před odesláním pomocí kódu VBA

Odpovědět všem vyloučit sebe v prohlížeči

Když používáme funkci Odpovědět všem v aplikaci Outlook, můžeme přidat účty do pole Komu, pokud e-maily, které jste obdrželi, obsahují ještě dva účty. V tomto případě možná budete chtít odebrat účty z polí To a CC. Ktools pro aplikaci Outlook's Mé jméno je může vám pomoct rychle řešit tuto práci. Potřebujete pouze jedno kliknutí, všechny účty myslft v aplikaci Outlook budou odebrány z polí To a CC. Klikněte na bezplatnou zkušební verzi 45 dnů!
odpověď na účet nezahrnuje účet
doc arrow dowm

odpověď doc nezahrnuje účet 2
Kutools pro Outlook: s desítkami praktických doplňků aplikace Outlook, můžete zkusit bez omezení v 45 dnech.

Zkontrolujte adresy před odesláním pomocí kódu VBA

Zde mám dva kódy, které vám pomohou při řešení této práce, můžete si vybrat někoho, koho potřebujete.

1. lis Alt + F11 keys povolit Microsoft Visual Basic pro aplikace okno.

2. Dvojklik ThisOutlookSession od Project1 panel otevřete editor kódu, zkopírujte a vložte pod kód do editoru.

VBA: Před odesláním zkontrolujte adresu příjemce v poli Komu

Private Sub Application_ItemSend (ByVal položka jako objekt, Zrušit jako Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () jako Variant Dim xAddress jako řetězec Dim xRecipient jako příjemce Dim xPrompt jako řetězec Dim xYesNo jako celé číslo Dim xDictionary Jako skriptování.Dictionary On Error pokračovat Next Set xDictionary = Nová scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Pro i = LBound (xAddressArr) UBound (xAddressArr) xDictionary.Add xAddressArr ), True Next i pro každý xRecipient v Item.Recipients Pokud xRecipient.Type = olTo pak Pokud xDictionary.Exists (xRecipient.Address) Pak xDictionary.Remove xRecipient.Address End Pokud Next Pokud xDictionary.Count = 0 Potom GoTo L1 Pro i = 0 Do xDictionary.Count - 1 Pokud xAddress = "" Potom xAddress = xDictionary.Keys (i) Jinak xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Neodesíláte to na: "& xAddress &". Opravdu chcete odeslat poštu? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Pokud xYesNo = vbNo Potom Cancel = True L1: Set xRecipient = Nothing Set xDictionary = Nothing End Sub

doc ověřte adresu příjemce před odesláním 1

V kódu se můžete změnit ("example1@126.com", "example2@126.com", "example3@126.com") k reálným příjemcům, které potřebujete.

3. Pak také v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko nářadí > Reference. Check Microsoft Scripting Runtime zaškrtávací políčko Odkazy-Project1 dialog.

doc ověřte adresu příjemce před odesláním 2 doc arrow vpravo doc ověřte adresu příjemce před odesláním 3

4. cvaknutí OK a uložte kód.

Nyní Pokud se vybraní příjemci nezobrazí v poli Komu při odesílání e-mailů, zobrazí se dialogové okno, které vám připomene, zda chcete e-mail odeslat.
doc ověřte adresu příjemce před odesláním 4

S výše uvedeným kódem kontroluje pouze e - mailové adresy v Na pole, pokud se chcete přihlásit Na, CC a BCC pole, můžete použít níže uvedený kód.

VBA: Před odesláním zkontrolujte adresu příjemce v poli To / CC / BCC

Private Sub Application_ItemSend (ByVal položka jako objekt, zrušte jako Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients jako Outlook.Recipients Dim xRecipient jako Outlook.Recipient Dim xPos jako celé číslo Dim xYesNo jako celé číslo Dim xPrompt jako řetězec Dim xAddress jako řetězec On Chyba Resume Next Pokud položka. (XRecipient.Address), xAddress) Pokud xPos = 1 Poté xPrompt = "Odesíláte to "& xAddress &". Opravdu chcete jej odeslat? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 0, "Kutools for Outlook") Pokud xYesNo = vbNo Then Cancel = True End Pokud další xRecipient End Sub

S tímto kódem nemusíte kontrolovat Microsoft Scripting Runtime zaškrtněte políčko, ale přímo uložte kód, který se projeví.



Kutools pro aplikaci Outlook

Více než rozšířené funkce 100 pro aplikace Outlook 2010, 2013, 2016, 2019 a 365

screen shot kutools pro výhled malý pro banner 201812

Více funkcí | Stažení zdarma | Pouze $ 39.00 pro stovky funkcí

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.