Ako rýchlo odstrániť duplicitných príjemcov z e-mailu v Outlooku pomocou VBA

Ak do aktuálneho e-mailu pridáte skupiny kontaktov do poľa „Komu“, môžu sa medzi nimi vyskytnúť duplicitné skupiny. Tento článok vás naučí, ako používať VBA na rýchle odstránenie duplicitných príjemcov.

Ak pri vytváraní e-mailu nepridávate ako príjemcov iba kontakty, ale aj skupiny kontaktov, niekedy môžu existovať aj duplikovaní príjemcovia, pretože skupiny kontaktov sú predvolene zbalené. V takom prípade, ak chcete zistiť duplikáty, musíte najskôr rozšíriť skupiny kontaktov a potom ručne porovnať príjemcov, čo som podrobne predstavil v mojom predchádzajúcom článku - “Ako odstrániť duplicitných príjemcov z e-mailov služby Outlook“. Bez akýchkoľvek pochybností je to veľmi únavné. Mnoho používateľov teda túži po rýchlom spôsobe odstránenia duplicitných príjemcov. V nasledujúcich častiach vás naučíme, ako to získať pomocou aplikácie Outlook VBA.

Rýchlo odstráňte duplicitných príjemcov z e-mailu v programe Outlook

1. Na prvom mieste spustite aplikáciu Outlook.
2. Potom prepnite na kartu „Vývojár“ a kliknite na tlačidlo „Visual Basic“ alebo iba stlačte klávesy „Alt + F11“.
3. Ďalej v okne „Microsoft Visual Basic for Applications“ môžete otvoriť prázdny modul.
4. Následne skopírujte a prilepte nasledujúce kódy VBA do tohto modulu.

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. Potom môžete pridať nový projekt VBA na panel nástrojov Rýchly prístup v okne správy.
6. Neskôr budete musieť nastaviť nízku úroveň zabezpečenia makra programu Outlook.
7. Nakoniec to môžete vyskúšať.

• Najskôr stačí napísať e-mail ako obvykle.
• Potom pridajte skupiny kontaktov a kontakty do poľa „Komu“.
• Ďalej môžete kliknúť na tlačidlo nového makra na paneli s nástrojmi Rýchly prístup.
• Aplikácia Outlook naraz automaticky rozšíri skupiny kontaktov a potom odstráni duplicitných príjemcov.

Chráňte svoje cenné údaje z Outlooku

Pretože je Outlook náchylný na zlyhanie, sú vaše dáta v Outlooku náchylné na poškodenie. Musíte teda vyvinúť značné úsilie na ochranu svojho súboru Outlook. Najskôr je potrebné pravidelne zálohovať súbor PST. Uľahčí to skorumpovaný PST oprava. Okrem toho by ste si mali lepšie pripraviť výkonný nástroj na opravu, ako je napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane mdf opraviť a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S