Եթե ընթացիկ էլփոստի «Դեպի» դաշտում կապի խմբեր եք ավելացնում, նրանց մեջ կարող են լինել կրկնօրինակներ: Այս հոդվածը կսովորեցնի ձեզ, թե ինչպես օգտագործել VBA- ն `կրկնօրինակ հասցեատերերին արագորեն հեռացնելու համար:
Էլ.փոստ կազմելիս, եթե ոչ միայն կոնտակտներ եք ավելացնում, այլ նաև կապի խմբեր որպես ստացողներ, ապա երբեմն կարող են լինել կրկնօրինակ ստացողներ, քանի որ շփման խմբերը լռելյայն փլուզված են: Այս դեպքում, եթե ցանկանում եք պարզել կրկնօրինակները, նախ պետք է ընդլայնել կապի խմբերը, ապա ձեռքով համեմատել ստացողների, ինչը մանրամասնորեն ներկայացվել է իմ նախորդ հոդվածում - «Ինչպես հեռացնել կրկնօրինակ հասցեատերերին ձեր Outlook էլփոստերից» Առանց կասկածների, դա շատ հոգնեցուցիչ է: Այսպիսով, շատ օգտվողներ փափագում են կրկնօրինակ հասցեատերերին հեռացնելու արագ միջոց: Հետևյալ բաժնում մենք կսովորեցնենք ձեզ ձեռք բերել այն Outlook VBA- ով:
Արագորեն հեռացրեք կրկնօրինակ հասցեատերերին ձեր Outlook էլ. Փոստում
- Առաջին հերթին գործարկեք ձեր Outlook հավելվածը:
- Դրանից հետո անցեք «Կառուցապատող» ներդիրին և կտտացրեք «Visual Basic» կոճակին կամ պարզապես սեղմեք «Alt + F11» ստեղները:
- Հաջորդը ՝ «Microsoft Visual Basic հավելվածների համար» պատուհանում, կարող եք բացել դատարկ մոդուլ:
- Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդերը այս մոդուլի մեջ:
Sub RemoveDuplicateRecipients()
Dim objCurrentMail As MailItem
Dim objRecipients As Recipients
Dim ContactGroupFound As Boolean
Dim i, n As Long
Set objCurrentMail = ActiveInspector.CurrentItem
ContactGroupFound = True
While ContactGroupFound = True
Set objRecipients = objCurrentMail.Recipients
ContactGroupFound = False
'Expand the contact groups in "To" field
For i = objRecipients.Count To 1 Step -1
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.Count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
ContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
Next i
objRecipients.ResolveAll
Wend
'Remove the duplicate recipients
For i = objRecipients.Count To 1 Step -1
For n = (i - 1) To 1 Step -1
If objRecipients(i).Address = objRecipients(n).Address Then
objRecipients(i).Delete
Exit For
End If
Next
Next
End Sub
- Դրանից հետո հաղորդագրության պատուհանի Արագ մուտքի Գործիքադարակում կարող եք ավելացնել նոր VBA նախագիծը:
- Ավելի ուշ դուք պետք է նախադրեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
- Վերջապես կարող եք փորձել:
- Նախ, պարզապես սովորական էլ. Նամակ կազմեք:
- Դրանից հետո «Դեպի» դաշտում ավելացնել կոնտակտային խմբեր և կապեր:
- Հաջորդը կարող եք սեղմել Արագ մուտքի Գործիքադարակի նոր մակրո կոճակին:
- Միանգամից, Outlook- ը ավտոմատ կերպով ընդլայնելու է կապի խմբերը, այնուհետև կհեռացնի կրկնօրինակ հասցեատերերին:
Պահպանեք ձեր արժեքավոր Outlook- ի տվյալները
Քանի որ Outlook- ը հակված է խափանման, ձեր Outlook- ի տվյալները ենթակա են կոռուպցիայի: Այսպիսով, դուք պետք է մեծ ջանքեր գործադրեք ձեր Outlook ֆայլը պաշտպանելու համար: Առաջին հերթին, ձեզ հարկավոր է կանոնավոր կերպով կրկնօրինակել ձեր PST ֆայլը: Դա կնպաստի կոռումպացված PST նորոգում Բացի այդ, ավելի լավ էր պատրաստել օգտակար ամրագրման գործիք, ինչպիսին է, օրինակ, DataNumen Outlook Repair.
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf շտկել և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com