Cookies matulungan kaming ihatid ang aming mga serbisyo. Sa pamamagitan ng paggamit sa aming mga serbisyo, sumasang-ayon ka sa aming paggamit ng cookies.
Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano upang suriin ang mga address ng tatanggap bago magpadala sa pamamagitan ng Outlook?

Sa ilang beses, maaari mong makalimutan ang pagdaragdag ng ilang mahahalagang tagatanggap sa mga patlang ng To, CC o BCC habang nagpapadala ng Mga E-mail sa pamamagitan ng Outlook. Dito, maaari kong ipakilala ang isang paraan upang suriin kung ang mga partikular na email address ay naidagdag bago ipadala sa pamamagitan ng Outlook.

Suriin ang mga address bago magpadala sa VBA code

Sumagot sa Lahat ibukod ang aking sarili sa pananaw

Kapag ginagamit namin ang Sumagot sa lahat ng function sa Outlook, maaari naming idagdag ang aming mga account sa Upang masyadong field kung ang mga email na iyong natanggap ay naglalaman ng dalawa pang iyong mga account. Sa kasong ito, maaari mong alisin ang iyong mga account mula sa mga patlang ng To at CC. Ktools para sa Outlook's Ang pangalan ko ay maaari kang maging isang pabor sa paglutas ng trabaho na ito nang mabilis. Kailangan lamang ng isang pag-click, ang lahat ng mga myselft account sa Outlook ay aalisin mula sa mga patlang ng To at CC. Mag-click para sa 45 araw na libreng pagsubok!
Ang doc reply ay magbubukod ng account
doc arrow dowm

doc reply ibukod ang account 2
Kutools for Outlook: may dose-dosenang mga madaling-gamiting Outlook add-in, libre upang subukan nang walang limitasyon sa 45 araw.

Suriin ang mga address bago magpadala sa VBA code

Narito mayroon akong dalawang mga code na maaaring makatulong sa iyo na paglutas ng trabaho na ito, maaari mong piliin ang sinuman na kailangan mo.

1. Pindutin ang Alt + F11 keys upang paganahin Microsoft Visual Basic para sa Mga Application window.

2. Double-click ThisOutlookSession mula Project1 pane upang buksan ang editor ng code, kopyahin at i-paste ang code sa ibaba sa editor.

VBA: suriin ang address ng tatanggap sa To field bago magpadala

Pribadong Sub Application_ItemSend (ByVal Item Bilang Object, Kanselahin Bilang Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Bilang Variant Dim xAddress Bilang String Dim xRecipient Bilang Recipient Dim xPrompt Bilang String Dim xYesNo Bilang Integer Dim xDictionary Bilang Scripting.Dictionary On Error Ipagpatuloy Susunod Itakda xDictionary = Bagong Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Para sa i = LBound (xAddressArr) Upang UBound (xAddressArr) xDictionary.Add xAddressArr (i ), Tunay na Susunod ako Para sa bawat xRecipient Sa Item.Recipients Kung xRecipient.Type = olTo Pagkatapos Kung xDictionary.Exists (xRecipient.Address) Pagkatapos xDictionary.Remove xRecipient.Address End Kung Susunod Kung xDictionary.Count = 0 Pagkatapos GoTo L1 Para sa i = 0 Upang xDictionary.Count - 1 Kung xAddress = "" Pagkatapos xAddress = xDictionary.Keys (i) Iba pa xAddress = xAddress + ";" & xDictionary.Keys (i) Katapusan Kung Susunod i xPrompt = "Hindi mo ito pinapadala sa: "& xAddress &" Sigurado ka ba na nais mong ipadala ang Mail? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Kung xYesNo = vbNo Pagkatapos Kanselahin = True L1: Itakda xRecipient = Walang Itakda xDictionary = Walang End Sub

doc check address ng tatanggap bago ipadala ang 1

Sa code, maaari mong baguhin ("example1@126.com", "example2@126.com", "example3@126.com") sa tunay na tatanggap na kailangan mo.

3. Pagkatapos din sa Microsoft Visual Basic para sa Mga Application window, i-click ang Kagamitan > Mga sanggunian. Check Microsoft Scripting Runtime checkbox Mga sanggunian-Project1 dialogue.

doc check address ng tatanggap bago ipadala ang 2 doc arrow kanan doc check address ng tatanggap bago ipadala ang 3

4. click OK at i-save ang code.

Ngayon Kung ang mga natukoy na tatanggap ay hindi lilitaw sa To field habang nagpapadala ng mga email, isang dialog ay lalabas upang ipaalala sa iyo kung upang ipadala ang email.
doc check address ng tatanggap bago ipadala ang 4

Sa itaas na code, ito lamang suriin ang mga email address sa Upang patlang, kung nais mong mag-check in Upang, CC at BCC mga patlang, maaari mong gamitin ang code sa ibaba.

VBA: suriin ang address ng tatanggap sa mga patlang ng To / CC / BCC bago magpadala

Pribadong Sub Application_ItemSend (ByVal Item Bilang Object, Kanselahin Bilang Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients Bilang Outlook.Recipients Dim xRecipient Bilang Outlook.Recipient Dim xPos Bilang Integer Dim xYesNo Bilang Integer Dim xPrompt Bilang String Dim Dim XAddress Bilang String Sa Error Ipagpatuloy Susunod Kung Item. Class <> olMail Pagkatapos Lumabas Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Para sa bawat xRecipient Sa xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Kung xPos = 0 Pagkatapos xPrompt = "Nagpapadala ka ito sa "& xAddress &". Sigurado ka bang gusto mong ipadala ito? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Kung xYesNo = vbNo Pagkatapos Kanselahin = True End Kung Susunod xRecipient End Sub

Gamit ang code na ito, hindi mo kailangang suriin Microsoft Scripting Runtime checkbox, direktang i-save lamang ang code upang magkabisa.



Kutools para sa Outlook

Higit sa 100 Advanced na Mga Function para sa Outlook 2010, 2013, 2016, 2019 at 365

screen shot kutools para sa pananaw maliit na maliit para sa banner 201812

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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.