Comment supprimer rapidement les destinataires en double de votre messagerie Outlook avec VBA

Si vous ajoutez des groupes de contacts au champ "À" de l'e-mail actuel, il peut y avoir des doublons parmi eux. Cet article vous apprendra comment utiliser VBA pour supprimer rapidement les destinataires en double.

Lors de la rédaction d'un e-mail, si vous ajoutez non seulement des contacts mais également des groupes de contacts en tant que destinataires, il peut parfois y avoir des destinataires en double car les groupes de contacts sont réduits par défaut. Dans ce cas, si vous souhaitez découvrir les doublons, vous devez d'abord développer les groupes de contacts, puis comparer manuellement les destinataires, ce qui a été présenté en détail dans mon article précédent - "Comment supprimer les destinataires en double de vos e-mails Outlook”. Sans aucun doute, c'est très fastidieux. Ainsi, de nombreux utilisateurs recherchent un moyen rapide de supprimer les destinataires en double. Dans ce qui suit, nous vous apprendrons à l'obtenir avec Outlook VBA.

Supprimer rapidement les destinataires en double dans votre e-mail Outlook

1. En premier lieu, lancez votre application Outlook.
2. Passez ensuite à l'onglet "Développeur" et cliquez sur le bouton "Visual Basic" ou appuyez simplement sur les touches "Alt + F11".
3. Ensuite, dans la fenêtre "Microsoft Visual Basic pour Applications", vous pouvez ouvrir un module vide.
4. Ensuite, copiez et collez les codes VBA suivants dans ce module.

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. Après cela, vous pouvez ajouter le nouveau projet VBA dans la barre d'outils d'accès rapide de la fenêtre de message.
6. Plus tard, vous devrez définir le niveau de sécurité de votre macro Outlook sur faible.
7. Enfin, vous pouvez essayer.

• Tout d'abord, composez simplement un e-mail comme d'habitude.
• Ajoutez ensuite des groupes de contacts et des contacts dans le champ "À".
• Ensuite, vous pouvez cliquer sur le bouton Nouvelle macro dans la barre d'outils d'accès rapide.
• Immédiatement, Outlook développera automatiquement les groupes de contacts, puis supprimera les destinataires en double.

Protégez vos précieuses données Outlook

Comme Outlook est susceptible de planter, vos données Outlook sont susceptibles d'être corrompues. Vous devez donc faire beaucoup d'efforts pour protéger votre fichier Outlook. Tout d'abord, vous devez sauvegarder régulièrement votre fichier PST. Cela facilitera PST corrompu réparation. De plus, vous feriez mieux de préparer un puissant outil de réparation à portée de main, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correctif mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com