Supprimer un doublons (contact) dans outlook

poitierjohan Messages postés 50 Date d'inscription samedi 25 septembre 2004 Statut Membre Dernière intervention 14 juillet 2008 - 9 févr. 2006 à 10:46
Simouss33 Messages postés 85 Date d'inscription jeudi 17 novembre 2005 Statut Membre Dernière intervention 15 février 2006 - 9 févr. 2006 à 14:42
Bonjour, j'ai trouvé ce code qui vérifie la présence de doublons dans la liste des contact outlook :

'Vé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...

2 réponses

Simouss33 Messages postés 85 Date d'inscription jeudi 17 novembre 2005 Statut Membre Dernière intervention 15 février 2006 2
9 févr. 2006 à 14:40
Je ne suis pas sûr que ça te permette de voir les doublons mais plutôt une occurence du contact... Si ton contact n'est présent qu'une seule fois
Simouss33 Messages postés 85 Date d'inscription jeudi 17 novembre 2005 Statut Membre Dernière intervention 15 février 2006 2
9 févr. 2006 à 14:42
Sinon la commande pour la suppression c'est Cible.Delete...
Rejoignez-nous