Dacă adăugați grupuri de contacte în câmpul „Către” al e-mailului curent, este posibil să existe unele duplicate printre ele. Acest articol vă va învăța cum să utilizați VBA pentru a elimina rapid destinatarii duplicați.
Când compuneți un e-mail, dacă nu numai că adăugați persoane de contact, ci și grupuri de contacte ca destinatari, uneori, pot exista niște destinatari duplicați, deoarece grupurile de contacte sunt restrânse în mod implicit. În acest caz, dacă doriți să aflați pe cele duplicate, trebuie mai întâi să extindeți grupurile de contact și apoi să comparați manual destinatarii, ceea ce a fost introdus în detaliu în articolul meu anterior – „Cum să eliminați destinatarii duplicați din e-mailurile dvs. Outlook”. Fără îndoială, este foarte plictisitor. Deci, mulți utilizatori tânjesc după o modalitate rapidă de a elimina destinatarii duplicați. În cele ce urmează, vă vom învăța să îl obțineți cu Outlook VBA.
Eliminați rapid destinatarii duplicați din e-mailul dvs. Outlook
- În primul rând, lansați aplicația Outlook.
- Apoi treceți la fila „Dezvoltator” și faceți clic pe butonul „Visual Basic” sau apăsați doar tastele „Alt + F11”.
- Apoi, în fereastra „Microsoft Visual Basic pentru aplicații”, puteți deschide un modul gol.
- Ulterior, copiați și lipiți următoarele coduri VBA în acest 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
- După aceea, puteți adăuga noul proiect VBA în bara de instrumente Acces rapid a ferestrei de mesaje.
- Mai târziu, trebuie să setați nivelul de securitate al macrocomenzii Outlook la scăzut.
- În sfârșit poți încerca.
- Mai întâi, scrieți un e-mail ca de obicei.
- Apoi adăugați grupuri de contacte și contacte în câmpul „Către”.
- Apoi, puteți face clic pe butonul macro nou din Bara de instrumente Acces rapid.
- Deodată, Outlook va extinde automat grupurile de contacte și apoi va elimina destinatarii duplicați.
Protejează-ți datele Outlook valoroase
Deoarece Outlook este predispus la blocare, datele dvs. Outlook sunt susceptibile de corupție. Deci, trebuie să depui multe eforturi pentru a-ți proteja fișierul Outlook. În primul rând, trebuie să faceți o copie de rezervă a fișierului PST în mod regulat. Va facilita PST corupt reparație. În plus, ar fi mai bine să pregătiți un instrument puternic de reparare la îndemână, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com