Küpsised aitavad meil pakkuda meie teenuseid. Kasutades meie teenuseid, nõustud meie küpsiste kasutamise kohta.
Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas kontrollida saaja aadresse enne Outlooki saatmist?

Mõne aja pärast võite puududa, lisades mõned olulised adressaadid välja, et saata e-kirju Outlooki kaudu To, CC või BCC väljadele. Siin ma võin tutvustada meetodit, et kontrollida, kas konkreetsed e-posti aadressid on lisatud enne Outlooki saatmist.

Kontrollige aadresse enne VBA-koodi saatmist

Vastus kõigile välistatakse ennast väljavaadetele

Kui me kasutame rakenduses Outlook kõigile funktsiooni Vastus kõigile, võime lisada oma kontod ka väljale Väli, kui teie vastuvõetud meilid sisaldavad veel kahte teie kontot. Sellisel juhul võite oma kontod eemaldada väljadest To ja CC. Ktools for Outlook's Minu nimi on võib teile selle töö kiireks lahendamiseks kaasa aidata. Vaid vaja ainult ühte kliki, kõik Outlooki MySQL-i kontod eemaldatakse To ja CC väljadest. Klõpsake 45 päeva tasuta prooviperioodiks!
doc vastus välistada konto
doc nool dowm

doc vastus välistab konto 2
Kutools for Outlook: koos kümneid käepäraseid Outlooki lisandmooduleid, mida saab tasuta proovida 45 päeva jooksul ilma piiranguteta.

Kontrollige aadresse enne VBA-koodi saatmist

Siin on mul kaks koodi, mis aitavad teil seda tööd lahendada, saate valida igaüks vastavalt vajadusele.

1. press Alt + F11 keys võimaldada Microsoft Visual Basic rakenduste jaoks aken.

2. Topeltklõps ThisOutlookSession pärit Project1 Koodi redaktori avamiseks pane kopeerida ja kleepida redaktorisse kood.

VBA: enne saatmist kontrollige väljale Saaja adressaadi aadressi

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Variant Dim xAddress String Dim xRecipient kui saaja Dim xPrompt String Dim xYesNo kui integer Dim xDictionary Scripting.Dictionary viga jätkata Jätkata järgmine Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("näide1@126.com", "example2@126.com", "example3@126.com") Kui i = LBound (xAddressArr) UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Järgmine Iga xRecipient In item.Recipients Kui xRecipient.Type = olTo Kui xDictionary.Exists (xRecipient.Address) Siis xDictionary.Remove xRecipient.Address Lõpp Kui Järgmine Kui xDictionary.Count = 0 Siis GoTo L1 Kui i = 0 xDictionary.Count - 1 Kui xAddress = "", siis xAddress = xDictionary.Keys (i) Muu xAddress = xAddress + ";" & xDictionary.Keys (i) Lõpp Kui Järgmine i xPrompt = "Te ei saa seda saata: "& xAddress &". Kas olete kindel, et soovite Maili saata? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Kui xYesNo = vbNo Seejärel Tühista = Tõeline L1: Määra xRecipient = Mitte miski Sisesta xDictionary = Nothing End Sub

doc kontrollida saaja aadressi enne 1i saatmist

Koodis saate muuta ("example1@126.com", "example2@126.com", "example3@126.com") reaalseteks abisaajateks, mida vajate.

3. Siis ka Microsoft Visual Basic rakenduste jaoks Klõpsake aknas töövahendid > viited. Check Microsoft skriptimine Runtime märkeruut sisse Viited-Project1 dialoogi.

doc kontrollida saaja aadressi enne 2i saatmist Dok nool vasakule doc kontrollida saaja aadressi enne 3i saatmist

4. klõps OK ja salvestage kood.

Nüüd Kui e-kirjade saatmisel pole määratud adressaati olevat väljas, ilmub välja dialoog, mis meenutab teile, kas meilisõnum saadetakse.
doc kontrollida saaja aadressi enne 4i saatmist

Eelnimetatud koodiga kontrollib see ainult e-posti aadresse Et välja, kui soovite sisse logida Et, CC ja BCC väljad, võite kasutada allpool koodi.

VBA: kontrollige enne saatmist To / CC / BCC väljad saaja aadressi

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients kui Outlook.Recipients Dim xRecipient nagu Outlook.Recipient Dim xPos kui Integer Dim xYesNo kui Integer Dim xPrompt Nagu String Dim xAddress kui String Error Jätkata Next. Klass <> olMail Siis Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Iga xRecipient xRecipientsis xPos = InStr (LCase (xRecipient.Address), xAddress) Kui xPos = 0 Siis xPrompt = "Sa saadate see on & xAddress & ". Kas olete kindel, et soovite seda saata?" xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Kui xYesNo = vbNo, siis Tühista = True End Kui Järgmine xRecipient End Sub

Selle koodiga ei pea te kontrollima Microsoft skriptimine Runtime märkeruut, lihtsalt koodi sisestamine kohe jõustumiseks.



Outlooki Kutools

Rohkem kui 100 täiustatud funktsioonid Outlooki 2010, 2013, 2016, 2019 ja 365 jaoks

ekraanipilt kutools jaoks banneri 201812 jaoks väikeseks

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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.