Kako hitro odstraniti podvojene prejemnike iz Outlookove e-pošte z VBA

Če dodate skupine stikov v polje »Za« trenutnega e-poštnega sporočila, je med njimi morda nekaj podvojenih. Ta članek vas bo naučil, kako uporabljati VBA za hitro odstranjevanje podvojenih prejemnikov.

Če pri sestavljanju e-poštnega sporočila kot prejemnike ne dodate le stikov, temveč tudi skupine stikov, se včasih lahko pojavijo nekateri podvojeni prejemniki, saj so skupine stikov privzeto strnjene. V tem primeru, če želite najti podvojene, morate najprej razširiti skupine stikov in nato ročno primerjati prejemnike, kar je bilo podrobno predstavljeno v mojem prejšnjem članku – "Kako odstraniti podvojene prejemnike iz Outlookovih e-poštnih sporočil”. Brez dvoma je zelo dolgočasno. Zato mnogi uporabniki hrepenijo po hitrem načinu odstranjevanja podvojenih prejemnikov. V nadaljevanju vas bomo naučili, kako ga dobiti z Outlookom VBA.

Hitro odstranite podvojene prejemnike v Outlookovi e-pošti

1. Najprej zaženite aplikacijo Outlook.
2. Nato preklopite na zavihek »Razvijalec« in kliknite gumb »Visual Basic« ali samo pritisnite tipki »Alt + F11«.
3. Nato v oknu »Microsoft Visual Basic for Applications« lahko odprete prazen modul.
4. Nato v ta modul kopirajte in prilepite naslednje kode 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. Po tem lahko dodate nov projekt VBA v orodno vrstico za hitri dostop okna za sporočila.
6. Pozneje morate raven varnosti makra Outlook nastaviti na nizko.
7. Končno lahko poskusite.

• Najprej samo sestavite e-poštno sporočilo kot običajno.
• Nato dodajte skupine stikov in stike v polje »Za«.
• Nato lahko v orodni vrstici za hitri dostop kliknete gumb za nov makro.
• Outlook bo takoj samodejno razširil skupine stikov in nato odstranil podvojene prejemnike.

Zaščitite svoje dragocene Outlookove podatke

Ker je Outlook nagnjen k zrušitvam, so vaši Outlookovi podatki dovzetni za poškodbe. Zato se morate zelo potruditi, da zaščitite svojo datoteko Outlook. Najprej morate redno varnostno kopirati datoteko PST. To bo olajšalo pokvarjen PST popravilo. Poleg tega raje pripravite zmogljivo orodje za popravilo, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z mdf popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com