Recherche Contact Outlook [Résolu]

[Ric500]

Bonjour!

Je cherche à faire une recherche indexée sur les contacts d'outlook à partir d'access. Malgré mes recherches dans la FAQ, je n'ai pour l'instant réussi qu'à faire une recherche de type séquentiel (en parcourant tous les contacts) comme suit:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   'Consultation du dossier contacts dans Outlook
   Set myOlApp = CreateObject("Outlook.Application")
   Set myNameSpace = myOlApp.GetNamespace("MAPI")
   Set mycontacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
   'On parcourt les nodes du tree (les contacts dans Outlook)
    Dim x As Integer
    For x = 1 To Me!Tree.Nodes.Count
        If Me!Tree.Nodes(x).Checked = False Then 'Si non coché on va au suivant
            GoTo NextContact
            Else
            LKey = Me!Tree.Nodes(x).Key
        End If
        'On parcourt les Contacts et on cherche si la clé Outlook existe dans la table ID
        'Si oui --> MAJ, sinon --> Création
        For Each MyContact In mycontacts
                    If MyContact.EntryID = LKey Then
...........

Ici je parcours les nodes d'un tree dont les clés sont la clé du contact sous outlook : si elle est cochée, je recherche cette même clé dans les contacts outlook. MAIS LA: je ne sais pas la commande pour la recherche indexée (du style :

Code :

1
2
3
With MyContacts
   .findfirst Condition
End With

Je vous remercie par avance de votre aide.

[Dolphy35]

Salut,

tu as vu le tuto d'Heureux-oli concernant le partage de Contacts entre Outlook et Access ?

http://heureuxoli.developpez.com/off...look/partager/

tu trouveras peut être tes infos.


Dolphy