Hur man snabbt tar bort dubbletter av mottagare från din Outlook-e-post med VBA

Om du lägger till kontaktgrupper i fältet "Till" i det aktuella e-postmeddelandet kan det finnas några dubbletter bland dem. Den här artikeln kommer att lära dig hur du använder VBA för att snabbt ta bort dubblettmottagarna.

När du skriver ett e-postmeddelande, om du inte bara lägger till kontakter utan även kontaktgrupper som mottagare, kan det ibland finnas några duplicerade mottagare eftersom kontaktgrupperna är komprimerade som standard. I det här fallet, om du vill ta reda på de dubbletter, måste du först utöka kontaktgrupperna och sedan jämföra mottagare manuellt, vilket har introducerats utförligt i min tidigare artikel - "Hur man tar bort duplicerade mottagare från dina Outlook-e-postmeddelanden”. Utan några tvivel är det väldigt jobbigt. Så många användare längtar efter ett snabbt sätt att ta bort dubbletter av mottagare. I det följande kommer vi att lära dig att få det med Outlook VBA.

Ta snabbt bort dubbletter av mottagare i din Outlook-e-post

1. För det första, starta din Outlook-applikation.
2. Byt sedan till fliken "Utvecklare" och klicka på knappen "Visual Basic" eller tryck bara på "Alt + F11" -tangenterna.
3. Nästa i fönstret "Microsoft Visual Basic for Applications" kan du öppna en tom modul.
4. Kopiera sedan och klistra in följande VBA-koder i den här modulen.

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. Efter det kan du lägga till det nya VBA-projektet i snabbåtkomstverktygsfältet i meddelandefönstret.
6. Senare måste du ställa in din Outlook-makrosäkerhetsnivå till låg.
7. Äntligen kan du prova.

• Först är det bara att skriva ett mejl som vanligt.
• Lägg sedan till kontaktgrupper och kontakter i "Till"-fältet.
• Därefter kan du klicka på den nya makroknappen i verktygsfältet Snabbåtkomst.
• På en gång kommer Outlook automatiskt att utöka kontaktgrupperna och sedan ta bort dubblettmottagarna.

Skydda dina värdefulla Outlook-data

Eftersom Outlook är benäget att krascha är dina Outlook-data känsliga för korruption. Så du måste anstränga dig mycket för att skydda din Outlook-fil. Först och främst måste du säkerhetskopiera din PST-fil regelbundet. Det kommer att underlätta korrupt PST reparera. Dessutom bör du förbereda ett kraftfullt fixverktyg till hands, t.ex DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive MDF-fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com