Kaip greitai pašalinti pasikartojančius gavėjus iš „Outlook“ el. pašto naudojant VBA

Jei prie dabartinio el. laiško lauko „Kam“ pridėsite kontaktų grupių, tarp jų gali būti pasikartojančių grupių. Šis straipsnis išmokys jus naudoti VBA, kad greitai pašalintumėte pasikartojančius gavėjus.

Jei kurdami el. laišką kaip gavėjus pridedate ne tik kontaktus, bet ir kontaktų grupes, kartais gali būti pasikartojančių gavėjų, nes kontaktų grupės pagal numatytuosius nustatymus yra sutrauktos. Tokiu atveju, jei norite sužinoti pasikartojančius, pirmiausia turite išplėsti kontaktų grupes, o tada palyginti gavėjus rankiniu būdu, kas buvo išsamiai pristatyta ankstesniame mano straipsnyje – „Kaip pašalinti pasikartojančius gavėjus iš „Outlook“ el. laiškų“. Be jokių abejonių, tai labai nuobodu. Taigi, daugelis vartotojų trokšta greito būdo pašalinti pasikartojančius gavėjus. Toliau mes išmokysime jį gauti naudojant „Outlook VBA“.

Greitai pašalinkite pasikartojančius gavėjus iš „Outlook“ el

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada pereikite prie skirtuko „Kūrėjas“ ir spustelėkite mygtuką „Visual Basic“ arba tiesiog paspauskite klavišus „Alt + F11“.
3. Toliau lange „Microsoft Visual Basic for Applications“ galite atidaryti tuščią modulį.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į šį modulį.

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. Po to galite pridėti naują VBA projektą pranešimo lango greitosios prieigos įrankių juostoje.
6. Vėliau turėsite nustatyti žemą Outlook makrokomandos saugos lygį.
7. Pagaliau galite pabandyti.

• Pirma, tiesiog surašykite el. laišką kaip įprasta.
• Tada lauke „Kam“ pridėkite kontaktų grupes ir kontaktus.
• Tada greitosios prieigos įrankių juostoje galite spustelėti naują makrokomandos mygtuką.
• Iš karto „Outlook“ automatiškai išplės kontaktų grupes ir pašalins pasikartojančius gavėjus.

Apsaugokite savo vertingus „Outlook“ duomenis

Kadangi „Outlook“ gali strigti, jūsų „Outlook“ duomenys gali būti sugadinti. Taigi, norėdami apsaugoti „Outlook“ failą, turite dėti daug pastangų. Visų pirma, turite reguliariai kurti atsarginę PST failo kopiją. Tai palengvins sugadintas PST remontas. Be to, geriau paruoškite galingą pataisymo įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com