A sütik segítenek nekünk Szolgáltatásainkat. Segítségével szolgáltatásainkat, Ön elfogadja a cookie-k használatát.
Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan kell ellenőrizni a címzett címeket, mielőtt elküldenék az Outlookon keresztül?

Előfordulhat, hogy néhány fontos címzett hozzáadása a Címzett, a CC vagy a BCC mezőkbe, miközben e-maileket küld az Outlookon keresztül. Itt be tudok vezetni egy módszert annak ellenőrzésére, hogy az adott e-mail címeket hozzáadta-e az Outlookon történő küldés előtt.

A VBA kóddal történő küldés előtt ellenőrizze a címeket

A Válasz mindenkinek kizárja magát a kilátásokban

Amikor az Outlook minden funkciójára válaszolunk, akkor fiókjainkat is hozzáadhatjuk Címzett mezőhöz, ha a fogadott e-mailek még két fiókot tartalmaznak. Ebben az esetben el szeretné távolítani fiókjait a Címzett és a CC mezők közül. Ktools az Outlook számára's A nevem kedvére teheti ezt a munkát gyorsan. Csak egy kattintásra van szükség, az Outlook minden myselft fiókját el kell távolítani a Címzett és a CC mezők közül. Kattintson az 45 nap ingyenes próbaverziójára!
A doc válasz kizárja a fiókot
doc arrow dowm

A doc válasz kizárja az 2 fiókot
Kutools for Outlook: tucatnyi praktikus Outlook bővítmény, ingyenes 45 napokon.

A VBA kóddal történő küldés előtt ellenőrizze a címeket

Itt van két kódom, amelyek segítenek megoldani ezt a munkát, választhatsz bárkit is, amire szükséged van.

1. nyomja meg Alt + F11 keys lehetővé teszi Microsoft Visual Basic for Applications ablak.

2. Dupla kattintás ThisOutlookSession ból ből Project1 ablaktáblában nyissa meg a kódszerkesztőt, másolja és illessze be a kódot a szerkesztő alá.

VBA: ellenőrizze a címzett címét a Címzett mezőbe elküldés előtt

Privát Sub Application_ItemSend (ByVal elem objektumként, visszavonás logikai értékként) UpdatebyExtendoffice20180523 Dim xAddressArr () Mint variáns Dim xAddress String Dim xRecipient mint címzett Dim xPrompt String Dim xYesNo mint egész Integrált dim xDictionary As Scripting.Dictionary hiba folytatása Next Set xDictionary = Új Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") i = LBound (xAddressArr) UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Minden egyes xRecipient In Item.Recipients Ha xRecipient.Type = olTo akkor Ha xDictionary.Exists (xRecipient.Address) Ezután xDictionary.Remove xRecipient.Address End Ha Következő Ha xDictionary.Count = 0 Majd GoTo L1 Az i = 0 A xDictionary.Count - 1 Ha xAddress = "" Ezután xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Ezt nem küldi el: "& xAddress &" Biztosan elküldi a Mail-t? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Ha xYesNo = vbNo, akkor visszavonja = True L1: Set xRecipient = Nincs Set xDictionary = Nothing End Sub

doc ellenőrizze a címzett címet az 1 elküldése előtt

A kódban megváltoztathatja ("example1@126.com", "example2@126.com", "example3@126.com") az igazi címzettekhez.

3. Aztán a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák. Check Microsoft Scripting Runtime jelölőnégyzet be Referenciák-Project1 párbeszéd.

doc ellenőrizze a címzett címet az 2 elküldése előtt doc nyíl jobbra doc ellenőrizze a címzett címet az 3 elküldése előtt

4. kettyenés OK és mentse a kódot.

Most Ha a megadott címzettek nem jelennek meg a To mezőben e-mailek küldésekor, megjelenik egy párbeszédpanel, amely emlékezteti Önt, hogy küldjön-e e-mailt.
doc ellenőrizze a címzett címet az 4 elküldése előtt

A fenti kóddal csak az e-mail címeket ellenőrzi Nak nek mezőt, ha be szeretne jelentkezni Nak nek, CC és BCC mezők, a kód alatt használhatja.

VBA: ellenőrizze a címzett címét a Címzett / CC / BCC mezőkbe a küldés előtt

Private Sub Application_ItemSend (ByVal elem objektumként, visszavonás logikai értékként) UpdatebyExtendoffice20180523 Dim xRecipients Mint Outlook.Recipients Dim xRecipient Mint Outlook.Recipient Dim xPos mint egész szám Dim xYesNo mint egész font Dim xPrompt mint string Dim xAdja meg a karakterláncot a hiba folytatásához Következő Ha tétel. Osztály <> olMail Ezután kilép Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Minden xRecipienshez xRecipiensben xPos = InStr (LCase (xRecipient.Address), xAddress) Ha xPos = 0 Ezután xPrompt = ezt a "& xAddress &" címre. Biztos benne, hogy elküldi? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Ha xYesNo = vbNo, akkor megszakít = True End Ha következő xRecipient End Sub

Ezzel a kóddal nem kell ellenőriznie Microsoft Scripting Runtime jelölőnégyzetet, közvetlenül mentse el a kódot, hogy életbe lépjen.



Kutools for Outlook

Több, mint 100 speciális funkció az Outlook 2010, 2013, 2016, 2019 és 365 alkalmazásokhoz

képernyőn lövés kutools az Outlook 201812 számára

További funkciók | ingyenes letöltés | Csak $ 39.00 több száz funkcióért

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.