Sådan fjernes duplikatmodtagere hurtigt fra din Outlook -e -mail med VBA

Hvis du tilføjer kontaktgrupper til feltet "Til" i den aktuelle e -mail, kan der være nogle dubletter blandt dem. Denne artikel lærer dig, hvordan du bruger VBA til hurtigt at fjerne duplikatmodtagere.

Når du skriver en e -mail, hvis du ikke kun tilføjer kontakter, men også kontaktgrupper som modtagere, kan der nogle gange være nogle dublerede modtagere, da kontaktgrupperne som standard er sammenbrudt. I dette tilfælde, hvis du vil finde ud af de dublerede, skal du først udvide kontaktgrupperne og derefter sammenligne modtagere manuelt, hvilket er blevet indført udførligt i min tidligere artikel - “Sådan fjernes duplikatmodtagere fra dine Outlook-e-mails”. Uden tvivl er det meget kedeligt. Så mange brugere længes efter en hurtig måde at fjerne dublerede modtagere. I det følgende vil vi lære dig at få det med Outlook VBA.

Fjern hurtigt duplikatmodtagere i din Outlook -e -mail

1. For det første skal du starte din Outlook-applikation.
2. Skift derefter til fanen "Udvikler" og klik på "Visual Basic" -knappen eller tryk bare på "Alt + F11" -tasterne.
3. Dernæst i vinduet "Microsoft Visual Basic for Applications" kan du åbne et tomt modul.
4. Kopier og indsæt derefter følgende VBA-koder i dette 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. Derefter kan du tilføje det nye VBA -projekt i værktøjslinjen Hurtig adgang i meddelelsesvinduet.
6. Senere skal du indstille dit Outlook -makrosikkerhedsniveau til lavt.
7. Endelig kan du prøve.

• Først skal du bare skrive en e -mail som normalt.
• Tilføj derefter kontaktgrupper og kontakter i feltet "Til".
• Dernæst kan du klikke på den nye makro -knap i værktøjslinjen Hurtig adgang.
• På en gang vil Outlook automatisk udvide kontaktgrupperne og derefter fjerne de dobbelte modtagere.

Beskyt dine værdifulde Outlook-data

Da Outlook er tilbøjelig til at gå ned, er dine Outlook -data modtagelige for korruption. Så du skal gøre en stor indsats for at beskytte din Outlook -fil. Først og fremmest skal du regelmæssigt sikkerhedskopiere din PST -fil. Det vil lette korrupt PST reparation. Derudover havde du bedre forberedt et kraftfuldt reparationsværktøj, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com