Cookies დაგვეხმარება სიტყვით ჩვენი მომსახურება. გამოყენებით ჩვენი მომსახურება, თქვენ ეთანხმებით, რომ ჩვენი გამოყენების cookies.
რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ შეამოწმოთ მიმღების მისამართები Outlook- ის მეშვეობით გაგზავნით?

ხანდახან, შეგიძლიათ დაკარგოთ მნიშვნელოვანი გადამხდელებისთვის To, CC ან BCC სფეროებში, ხოლო ელ-ფოსტის გაგზავნა Outlook- ის საშუალებით. აქ შემიძლია შემოგთავაზოთ მეთოდი, რათა შეამოწმოთ, თუ კონკრეტული ელფოსტის მისამართები დაემატა Outlook- ის მეშვეობით.

შეამოწმეთ მისამართები VBA კოდით გაგზავნით

პასუხი ყველას გამოაშკარავდება მსოფლმხედველობაში

როდესაც ჩვენ გამოვიყენებთ პასუხს Outlook- ში ყველა ფუნქციასთან, ჩვენ შეიძლება დაამატოთ ჩვენი ანგარიშები, თუ ველით თუ მიიღებთ ელფოსტას კიდევ 2 ანგარიშზე. ასეთ შემთხვევებში, შეიძლება დაგჭირდეთ თქვენი ანგარიშების წაშლა და დანართიდან. Ktools ამისთვის Outlook's ჩემი სახელები შეგიძლიათ გააკეთოთ სასარგებლოდ გადაჭრის ამ სამუშაოს სწრაფად. საჭიროა მხოლოდ ერთი დაჭერით, Outlook- ში ყველა myselft ანგარიშები ამოღებულ იქნას დან და CC- ის სფეროებში. დაწკაპეთ 45 დღეების უფასო საცდელი!
doc პასუხი გამორიცხავს ანგარიშს
doc arrow dowm

doc პასუხი გამორიცხავს ანგარიშზე 2
Kutools for Outlook: ათობით ხელსაყრელი Outlook add-ins, უფასო ცდილობენ არ შეზღუდვა in 45 დღე.

შეამოწმეთ მისამართები VBA კოდით გაგზავნით

აქ მაქვს ორი კოდი დაგეხმარებათ ამ პრობლემის გადაჭრაში, შეგიძლიათ აირჩიოთ ვინმემ, როგორც გჭირდებათ.

1. დაჭერა Alt + F11 კeys საშუალებას მისცემს Microsoft Visual Basic აპლიკაციებისათვის window.

2. ორჯერ დააწკაპუნეთ ესაა საწყისი პროექტი 1 pane გახსნა კოდი რედაქტორი, ასლი და ჩასვით ქვემოთ კოდი რედაქტორი.

VBA: შეამოწმეთ მიმღები მისამართი დან სფეროში ადრე გაგზავნის

პირადი Sub Application_ItemSend (ByVal საქონელი როგორც ობიექტი, გააუქმეთ როგორც ლოგიკური) "განახლება EXTENDOffline20180523 Dim xAddressArr () როგორც Variant Dim xAddress როგორც სიმებიანი Dim xRecipient როგორც მიმღები Dim xPrompt როგორც სიმებიანი Dim xYesNo როგორც Integer Dim xDictionary როგორც Scripting.Dictionary შეცდომა რეზიუმე შემდეგი Set xDictionary = ახალი Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") for i = LBound (xAddressArr) დან UBound (xAddressArr) xDictionary.Add xAddressArr (i ), ჭეშმარიტი შემდეგი i მომწერისთვის xRecipient in item.Recipients თუ xRecipient.Type = olTo მაშინ თუ xDictionary.Exists (xRecipient.Address) შემდეგ xDictionary.Remove xRecipient.Address ბოლოს თუ შემდეგი თუ xDictionary.Count = X მაშინ GoTo L0 For i = X xxxx = "x xxxx =" x xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx " "& xAddress &". დარწმუნებული ხართ, რომ გსურთ გააგზავნოთ ფოსტა? " xYesNo = MsgBox (xPrompt, vb კითხვები + vbYesNo, "Kutools for Outlook") თუ xYesNo = vbNo შემდეგ გაუქმება = True L1: Set xRecipient = არაფერი Set xDictionary = არაფერი ბოლო

doc შეამოწმეთ მიმღები მისამართი ადრე გაგზავნის 1

კოდში შეგიძლიათ შეცვალოთ ("example1@126.com", "example2@126.com", "example3@126.com") რეალურ რეციპიენტს გჭირდებათ.

3. შემდეგ ასევე Microsoft Visual Basic აპლიკაციებისათვის ფანჯარა, დააჭირეთ ინსტრუმენტები > ლიტერატურა. Check Microsoft Scripting Runtime ჩამრთველი წყაროები-პროექტი 1 დიალოგი.

doc შეამოწმეთ მიმღები მისამართი ადრე გაგზავნის 2 doc arrow მარჯვნივ doc შეამოწმეთ მიმღები მისამართი ადრე გაგზავნის 3

4. click OK და შეინახეთ კოდი.

ახლა თუ მითითებულ მიმღებთა არ ჩანს გამოჩნდება სფეროში ელფოსტის გაგზავნისას, დიალოგი გაიხსნება, რომ შეგახსენოთ თუ გააგზავნით ელ.
doc შეამოწმეთ მიმღები მისამართი ადრე გაგზავნის 4

ზემოთ კოდით, მხოლოდ ელ-ფოსტის მისამართები შეამოწმეთ დან ველი, თუ გსურთ შეამოწმოთ სისტემაში დან, CC და BCC სფეროებში, შეგიძლიათ გამოიყენოთ ქვემოთ კოდი.

VBA: შეამოწმეთ მიმღები მისამართი To / CC / BCC სფეროებში გაგზავნამდე

პირადი Sub Application_ItemSend (ByVal საქონელი, როგორც ობიექტი, გააუქმეთ როგორც ლოგიკური) "UpdatebyExtendoffice20180523 Dim xRecipients როგორც Outlook.Recipients Dim xRecipient როგორც Outlook.Recipient Dim xPos როგორც Integer Dim xYesNo როგორც Integer Dim xPrompt როგორც სიმებიანი Dim xAddress როგორც სიმებიანი On შეცდომა რეზიუმე შემდეგი თუ საქონელი. კლასში <> olMail შემდეგ გამოსვლა ქვესახე xRecipients = Item.Recipients xAddress = "example1@gmail.com" თითოეული xRecipient in xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) თუ xPos = 0 შემდეგ xPrompt = "თქვენ გაგზავნის ეს "& xAddress &" - ​​ს დარწმუნებული ხართ? " xYesNo = MsgBox (xPrompt, vbyesNo + vb კითხვები + 4096, "Kutools for Outlook") თუ xYesNo = vbNo შემდეგ გაუქმება = True End თუ შემდეგი xRecipient End Sub

ამ კოდის გამოყენებით, თქვენ არ გჭირდებათ შემოწმება Microsoft Scripting Runtime ჩამრთველი, უბრალოდ პირდაპირ შეინახეთ კოდი ამოქმედდეს.



Kutools ამისთვის Outlook

მეტი 100 გაფართოებული ფუნქციები Outlook, 2010, 2013, 2016 და 2019

ეკრანის კადრი kutools ამისთვის Outlook პატარა ამისთვის banner 201812

მეტი ფუნქციები | უფასო გადმოწერა | მხოლოდ $ 39.00 ასობით ფუნქციებისთვის

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.