VBA ilə Outlook E-poçtunuzdan Dublikat Alıcıları Necə Tez Silmək olar

Cari e-poçtun "Kimə" sahəsinə əlaqə qrupları əlavə etsəniz, onların arasında bir neçə dublikat ola bilər. Bu məqalə sizə dublikat alıcıları tez bir zamanda silmək üçün VBA-dan necə istifadə edəcəyinizi öyrədəcək.

E-poçt yazarkən, yalnız kontaktları deyil, həm də alıcılar kimi əlaqə qruplarını əlavə etsəniz, bəzən kontakt qrupları defolt olaraq yığışdırıldığı üçün bəzi təkrar alıcılar ola bilər. Bu halda, dublikatları tapmaq istəyirsinizsə, ilk növbədə əlaqə qruplarını genişləndirməli və sonra mənim əvvəlki məqaləmdə ətraflı şəkildə təqdim olunan alıcıları əl ilə müqayisə etməlisiniz - "Outlook E-poçtlarınızdan Dublikat Alıcıları Necə Silmək olar”. Şübhəsiz ki, çox yorucudur. Beləliklə, bir çox istifadəçi dublikat alıcıları silmək üçün sürətli bir yol axtarır. Aşağıdakı məqalələrdə onu Outlook VBA ilə əldə etməyi sizə öyrədəcəyik.

Outlook E-poçtunuzda Dublikat Alıcıları Tez Silin

1. İlk növbədə, Outlook proqramınızı işə salın.
2. Sonra "Developer" sekmesine keçin və "Visual Basic" düyməsini basın və ya sadəcə "Alt + F11" düymələrini basın.
3. Sonrakı "Proqramlar üçün Microsoft Visual Basic" pəncərəsində boş bir modul aça bilərsiniz.
4. Sonradan aşağıdakı VBA kodlarını kopyalayıb bu modula yapışdırın.

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. Bundan sonra, mesaj pəncərəsinin Tez Giriş Alətlər Panelinə yeni VBA layihəsi əlavə edə bilərsiniz.
6. Daha sonra Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə təyin etməlisiniz.
7. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə həmişəki kimi e-poçt yazın.
• Sonra "Kimə" sahəsinə əlaqə qrupları və kontaktlar əlavə edin.
• Sonra, Tez Giriş Alətlər Panelində yeni makro düyməsini klikləyə bilərsiniz.
• Bir anda, Outlook avtomatik olaraq əlaqə qruplarını genişləndirəcək və sonra dublikat alıcıları siləcək.

Dəyərli Outlook məlumatlarınızı qoruyun

Outlook qəzaya meylli olduğundan, Outlook məlumatlarınız korrupsiyaya həssasdır. Beləliklə, Outlook faylınızı qorumaq üçün çox səy göstərməlisiniz. İlk növbədə, siz müntəzəm olaraq PST faylınızın ehtiyat nüsxəsini çıxarmalısınız. Bu asanlaşdıracaq pozulmuş PST təmir. Bundan əlavə, siz daha yaxşı kimi lazımlı güclü bir düzeltme aracı hazırlamaq idi DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com