Paano Mabilis na Alisin ang Mga Duplicate na Recipient mula sa Iyong Outlook Email gamit ang VBA

Kung magdaragdag ka ng mga contact group sa field na “Kay” ng kasalukuyang email, maaaring may ilang duplicate sa kanila. Ituturo sa iyo ng artikulong ito kung paano gamitin ang VBA para mabilis na maalis ang mga duplicate na tatanggap.

Kapag bumubuo ng isang email, kung hindi ka lang magdagdag ng mga contact kundi pati na rin ang mga contact group bilang mga tatanggap, kung minsan, maaaring mayroong ilang mga duplicate na tatanggap dahil ang mga contact group ay na-collapse bilang default. Sa kasong ito, kung gusto mong malaman ang mga duplicate, kailangan mo munang palawakin ang mga contact group at pagkatapos ay manu-manong ihambing ang mga tatanggap, na ipinakilala nang detalyado sa aking nakaraang artikulo– “Paano Tanggalin ang Mga Duplicate na Tatanggap mula sa Iyong Mga Email sa Outlook”. Nang walang anumang pagdududa, ito ay napaka nakakapagod. Kaya, maraming user ang naghahangad ng mabilis na paraan para alisin ang mga duplicate na tatanggap. Sa mga sumusunod, tuturuan ka naming makuha ito gamit ang Outlook VBA.

Mabilis na Alisin ang Mga Duplicate na Recipient sa Iyong Outlook Email

1. Sa unang lugar, ilunsad ang iyong aplikasyon sa Outlook.
2. Pagkatapos ay lumipat sa tab na "Developer" at mag-click sa pindutang "Visual Basic" o pindutin lamang ang "Alt + F11" na mga key.
3. Susunod sa window ng "Microsoft Visual Basic for Applications", maaari kang magbukas ng blangko na module.
4. Kasunod, kopyahin at i-paste ang mga sumusunod na VBA code sa modyul na ito.

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. Pagkatapos nito, maaari mong idagdag ang bagong proyekto ng VBA sa Quick Access Toolbar ng window ng mensahe.
6. Sa ibang pagkakataon, kailangan mong itakda ang iyong Outlook macro security level sa mababa.
7. Sa wakas maaari kang magkaroon ng isang pagsubok.

• Una, gumawa lang ng email gaya ng dati.
• Pagkatapos ay magdagdag ng mga contact group at contact sa field na “Kay”.
• Susunod na maaari mong i-click ang bagong macro button sa Quick Access Toolbar.
• Sabay-sabay, awtomatikong palalawakin ng Outlook ang mga grupo ng contact at pagkatapos ay aalisin ang mga duplicate na tatanggap.

Pangalagaan ang Iyong Mahalagang Data ng Outlook

Dahil madaling mag-crash ang Outlook, ang iyong data sa Outlook ay madaling kapitan ng katiwalian. Kaya, kailangan mong gumawa ng maraming pagsisikap upang protektahan ang iyong Outlook file. Una sa lahat, kailangan mong i-back up ang iyong PST file sa isang regular na batayan. Ito ay mapadali tiwaling PST pagkukumpuni. Bilang karagdagan, mas mabuting maghanda ka ng isang mahusay na tool sa pag-aayos, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mdf ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa