Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā pārbaudīt adresātu adreses pirms nosūtīšanas caur programmu Outlook?

Dažu reižu laikā, nosūtot e-pastus, izmantojot Outlook, iespējams, ka daži no svarīgākajiem adresātiem ir pievienojuši To, CC vai BCC laukus. Šeit es varu ieviest metodi, lai pārbaudītu, vai konkrētās e-pasta adreses ir pievienotas pirms sūtīšanas, izmantojot programmu Outlook.

Pārbaudiet adreses pirms sūtīšanas ar VBA kodu

Atbildēt visiem izslēdziet sevi perspektīvā

Ja mēs izmantojam funkciju Atbildēt uz visām funkcijām programmā Outlook, mēs varam pievienot savus kontus arī laukā Ja vēlaties, ka jūsu e-pasta adresēs ir vēl divi jūsu konti. Šajā gadījumā, iespējams, vēlēsities noņemt savus kontus no laukiem Uz un CC. Ktools Outlook's Mani sauc var jums palīdzēt ātri atrisināt šo darbu. Nepieciešams tikai viens klikšķis, visi myselft konti programmā Outlook tiks noņemti no To un CC laukiem. Noklikšķiniet uz 45 dienu bezmaksas izmēģinājuma versiju!
doc atbilde izslēgt kontu
doc arrow dowm

doc atbilde izslēgt kontu 2
Kutools for Outlook: ar desmitiem ērtu Outlook pievienojumprogrammu, kuru bez maksas var izmēģināt 45 dienās.

Pārbaudiet adreses pirms sūtīšanas ar VBA kodu

Šeit man ir divi kodi, kas var palīdzēt jums atrisināt šo darbu, jūs varat izvēlēties ikvienu, kā jums nepieciešams.

1. Nospiediet Alt + F11 keys to enable Microsoft Visual Basic for Applications logs.

2. Dubultklikšķi ThisOutlookSession no Project1 lai atvērtu koda redaktoru, kopējiet un ielīmējiet zemāk kodu redaktoram.

VBA: pirms nosūtīšanas pārbaudiet saņēmēja adresi laukā Kam

Privāts Sub Application_ItemSend (ByVal objekts kā objekts, Atcelt kā Būla) "UpdatebyExtendoffice20180523 Dim xAddressArr () Kā Variant Dim xAddress kā String Dim xRecipient Kā saņēmējs Dim xPrompt Kā String Dim xYesNo Kā Integer Dim xDictionary Kā Scripting.Dictionary Par kļūdu Atjaunot Nākamais Iestatiet xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Ja i = LBound (xAddressArr) Lai UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Katram xRecipient In Item.Recipients Ja xRecipient.Type = olTo Tad ja xDictionary.Exists (xRecipient.Address) Tad xDictionary.Remove xRecipient.Address End Ja Next Ja xDictionary.Count = 0 Tad GoTo L1 Par i = 0 uz xDictionary.Count - 1 Ja xAddress = "", tad xAddress = xDictionary.Keys (i) Citādi xAddress = xAddress + ";" & xDictionary.Keys (i) Beigt Ja Next i xPrompt = "Jūs to nesūtāt: "& xAddress &". Vai tiešām vēlaties nosūtīt pastu? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Ja xYesNo = vbNo Tad Atcelt = True L1: Iestatiet xRecipient = Nekas nenoteikts xDictionary = Nothing End Sub

doc pārbaudiet saņēmēja adresi pirms 1 nosūtīšanas

Šajā kodā jūs varat mainīt ("example1@126.com", "example2@126.com", "example3@126.com") reāliem saņēmējiem, kas jums ir vajadzīgi.

3. Tad arī Microsoft Visual Basic for Applications logs, noklikšķiniet uz darbarīki > Atsauces. Pārbaude Microsoft skriptu izpildes laiks atzīmējiet izvēles rūtiņu Atsauces - Project1 dialogs

doc pārbaudiet saņēmēja adresi pirms 2 nosūtīšanas doc arrow pa labi doc pārbaudiet saņēmēja adresi pirms 3 nosūtīšanas

4. klikšķis OK un saglabājiet kodu.

Tagad, ja norādītie adresāti neparādās laukā Kam, sūtot e-pastus, parādīsies dialogs, lai atgādinātu jums, vai nosūtīt e-pastu.
doc pārbaudiet saņēmēja adresi pirms 4 nosūtīšanas

Ar iepriekš minēto kodu tas pārbauda tikai e-pasta adreses Uz laukā, ja vēlaties reģistrēties Uz, CC un BCC laukus, jūs varat izmantot zemāk kodu.

VBA: pirms nosūtīšanas pārbaudiet adresāta adresi To / CC / BCC laukos

Privāts Sub Application_ItemSend (ByVal objekts kā objekts, Atcelt kā Būla) "UpdatebyExtendoffice20180523 Dim xRecipients kā Outlook.Recipients Dim xRecipient Kā Outlook.Recipient Dim xPos kā Integer Dim xYesNo kā Integer Dim xPrompt Kā String Dim xAddress Kā String uz kļūdu Atjaunot nākamo, ja vienumu. Klase <> olMail Tad iziet no apakšsistēmas xRecipients = Item.Recipients xAddress = "example1@gmail.com" Katram xRecipient xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Ja xPos = 0 Tad xPrompt = "Jūs sūtāt Tas ir "& xAddress &". Vai tiešām vēlaties to nosūtīt? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Ja xYesNo = vbNo Tad Atcelt = True End Ja nākamais xRecipient End Sub

Ar šo kodu jums nav jāpārbauda Microsoft skriptu izpildes laiks izvēles rūtiņa, vienkārši tieši saglabājiet kodu, lai tas stātos spēkā.



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.