Supprimer un doublons (contact) dans outlook

Question

Bonjour, j'ai trouv&#233; ce code qui v&#233;rifie la pr&#233;sence de doublons dans la liste des contact outlook :

  'V&#233;rification des doublons dans les contacts
  Dim objOutlook As New Outlook.Application
  Dim objContact As ContactItem
  Dim olApp As New Outlook.Application
  Dim Cible As Outlook.ContactItem
  Dim dossierContacts As Outlook.MAPIFolder
  
  Set olApp = New Outlook.Application
  Set dossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder  (olFolderContacts)
    Set Cible dossierContacts.Items.Find("[LastName] ""leNom""")
  If Not Cible Is Nothing Then
    MsgBox "Existe" 'C'EST ICI QU'IL FAUT SUPPRIMER LE DOUBLON
  Else
    MsgBox "N'existe pas"
  End If

Coment faire alors pour pouvoir supprimer automatiquement le doublon??

Merci...

Simouss33 · Answer

Je ne suis pas s&#251;r que &#231;a te permette de voir les doublons mais plut&#244;t une occurence du contact... Si ton contact n'est pr&#233;sent qu'une seule fois

Simouss33 · Answer

Sinon la commande pour la suppression c'est Cible.Delete...

Supprimer un doublons (contact) dans outlook

2 réponses

Discussions similaires