Jeśli dodasz grupy kontaktów w polu „Do” aktualnego e-maila, mogą się wśród nich znajdować zduplikowane grupy. W tym artykule dowiesz się, jak używać VBA do szybkiego usuwania zduplikowanych odbiorców.
Podczas tworzenia wiadomości e-mail, jeśli jako odbiorców dodasz nie tylko kontakty, ale także grupy kontaktów, czasami mogą istnieć zduplikowani odbiorcy, ponieważ grupy kontaktów są domyślnie zwinięte. W takim przypadku, jeśli chcesz znaleźć duplikaty, musisz najpierw rozszerzyć grupy kontaktów, a następnie ręcznie porównać odbiorców, co zostało szczegółowo przedstawione w moim poprzednim artykule - „Jak usunąć zduplikowanych odbiorców z wiadomości e-mail programu Outlook”. Bez wątpienia jest to bardzo uciążliwe. Dlatego wielu użytkowników tęskni za szybkim sposobem usunięcia zduplikowanych odbiorców. Poniżej nauczymy Cię, jak uzyskać to za pomocą programu Outlook VBA.
Szybko usuwaj zduplikowanych odbiorców z wiadomości e-mail programu Outlook
- W pierwszej kolejności uruchom aplikację Outlook.
- Następnie przejdź do zakładki „Deweloper” i kliknij przycisk „Visual Basic” lub po prostu naciśnij klawisze „Alt + F11”.
- Następnie w oknie „Microsoft Visual Basic for Applications” można było otworzyć pusty moduł.
- Następnie skopiuj i wklej następujące kody VBA do tego modułu.
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
- Następnie możesz dodać nowy projekt VBA na pasku narzędzi szybkiego dostępu w oknie wiadomości.
- Później musisz ustawić poziom bezpieczeństwa makr programu Outlook na niski.
- Wreszcie możesz spróbować.
- Najpierw utwórz wiadomość e-mail w zwykły sposób.
- Następnie dodaj grupy kontaktów i kontakty w polu „Do”.
- Następnie możesz kliknąć przycisk nowego makra na pasku narzędzi szybkiego dostępu.
- Od razu program Outlook automatycznie rozszerzy grupy kontaktów, a następnie usunie zduplikowanych odbiorców.
Chroń swoje cenne dane programu Outlook
Ponieważ program Outlook jest podatny na awarie, dane programu Outlook są podatne na uszkodzenie. Musisz więc podjąć wiele wysiłków, aby chronić plik programu Outlook. Przede wszystkim musisz regularnie tworzyć kopie zapasowe pliku PST. To ułatwi uszkodzony plik PST naprawic. Ponadto lepiej przygotować przydatne potężne narzędzie naprawcze, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com