Как бързо да премахнете дублиращи се получатели от вашия имейл в Outlook с VBA

Ако добавите групи контакти към полето „До“ на текущия имейл, може да има някои дублирани сред тях. Тази статия ще ви научи как да използвате VBA за бързо премахване на дублиращите се получатели.

Когато съставяте имейл, ако не само добавяте контакти, но и групи контакти като получатели, понякога може да има някои дублирани получатели, тъй като групите контакти са свити по подразбиране. В този случай, ако искате да откриете дублиращите се, първо трябва да разширите групите с контакти и след това да сравните получателите ръчно, което беше подробно представено в предишната ми статия – “Как да премахнете дублиращи се получатели от вашите имейли в Outlook”. Без съмнение, това е много досадно. Така че много потребители копнеят за бърз начин за премахване на дублиращи се получатели. По-долу ще ви научим да го получавате с Outlook VBA.

Бързо премахване на дублиращи се получатели във вашия имейл в Outlook

1. На първо място стартирайте приложението си Outlook.
2. След това преминете към раздела „Разработчик“ и щракнете върху бутона „Visual Basic“ или просто натиснете клавишите „Alt + F11“.
3. След това в прозореца „Microsoft Visual Basic за приложения“ можете да отворите празен модул.
4. След това копирайте и поставете следните 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

5. След това можете да добавите новия VBA проект в лентата с инструменти за бърз достъп на прозореца за съобщения.
6. По-късно трябва да зададете ниско ниво на защита на макроса на Outlook.
7. Накрая можете да опитате.

• Първо, просто напишете имейл, както обикновено.
• След това добавете групи контакти и контакти в полето „До“.
• След това можете да щракнете върху бутона за нов макрос в лентата с инструменти за бърз достъп.
• Веднага Outlook автоматично ще разшири групите с контакти и след това ще премахне дублиращите се получатели.

Защитете вашите ценни данни от Outlook

Тъй като Outlook е предразположен към срив, вашите данни в Outlook са податливи на повреда. Така че трябва да положите много усилия, за да защитите вашия Outlook файл. На първо място, трябва редовно да архивирате своя PST файл. Ще улесни корумпиран PST ремонт. В допълнение, по-добре е да подготвите под ръка мощен инструмент за коригиране, като напр DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com