Kuinka poistaa kaksoiskappaleet nopeasti Outlook-sähköpostista VBA: lla

Jos lisäät kontaktiryhmiä nykyisen sähköpostin Vastaanottaja-kenttään, niiden joukossa voi olla joitain päällekkäisiä ryhmiä. Tämä artikkeli opettaa sinulle, kuinka VBA: n avulla päällekkäiset vastaanottajat poistetaan nopeasti.

Jos kirjoitat sähköpostia, paitsi jos lisäät yhteystietoja myös yhteyshenkilöryhmiä vastaanottajiksi, joskus saattaa olla joitain päällekkäisiä vastaanottajia, koska yhteysryhmät ovat oletusarvoisesti tiivistettyjä. Tässä tapauksessa, jos haluat selvittää päällekkäiset ryhmät, sinun on ensin laajennettava yhteysryhmät ja sitten vertailtava vastaanottajia manuaalisesti, mikä on esitetty yksityiskohtaisesti edellisessä artikkelissani -Kuinka poistaa kaksoiskappaleet vastaanottajista Outlook-sähköposteistasi”. Ilman epäilyksiä, se on erittäin tylsiä. Joten monet käyttäjät kaipaavat nopeaa tapaa poistaa päällekkäiset vastaanottajat. Seuraavassa opetamme sinua saamaan sen Outlook VBA: n avulla.

Poista päällekkäiset vastaanottajat nopeasti Outlook-sähköpostista

1. Käynnistä ensin Outlook-sovellus.
2. Vaihda sitten Kehittäjä-välilehdelle ja napsauta Visual Basic -painiketta tai paina vain Alt + F11-näppäimiä.
3. Seuraavaksi Microsoft Visual Basic for Applications -ikkunassa voit avata tyhjän moduulin.
4. Kopioi ja liitä seuraavat VBA-koodit sitten tähän moduuliin.

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. Tämän jälkeen voit lisätä uuden VBA-projektin viestiikkunan Pika-työkalupalkkiin.
6. Myöhemmin sinun on asetettava Outlookin makrotason suojaustaso matalalle.
7. Lopuksi voit kokeilla.

• Ensinnäkin, kirjoita sähköposti normaalisti.
• Lisää sitten kontaktiryhmiä ja yhteystietoja Vastaanottaja-kenttään.
• Seuraavaksi voit napsauttaa uutta makronappia Pikakäynnistystyökalupalkissa.
• Outlook laajentaa yhteystietoryhmiä automaattisesti ja poistaa päällekkäiset vastaanottajat.

Suojaa arvokkaat Outlook-tietosi

Koska Outlook on altis kaatumaan, Outlook-tietosi ovat alttiita korruptiolle. Joten sinun on tehtävä paljon työtä Outlook-tiedostosi suojaamiseksi. Ensinnäkin, sinun on varmuuskopioitava PST-tiedostosi säännöllisesti. Se helpottaa korruptoitunut PST korjaus. Lisäksi sinulla on ollut parempi valmistaa tehokas korjaustyökalu, joka on kätevä, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com