Bonjour,
J'essaie de me connecter à outlook en ole pour récupérer les contacts qui sont dans un dossier spécifique mais je coince.
J'utilise le code ci-dessous :
Quand j'éxécute le code tout se passe bien, le trace me donne bien le nombre de contact présent dans le dossier soit 115..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 objApp est un objet OLE dynamique objNS est un objet OLE dynamique myFolder1 est un objet OLE dynamique cit1 est un objet OLE dynamique NBContact est un entier i est un entier=1 objApp=ObjetActif("OutLook.Application") objNS=objApp>>GetNamespace("MAPI") //Récuperer le dossier contact de votre choix myFolder1=objNS>>PickFolder // Nombre de contact dans le dossier selectionné NBContact = myFolder1>>items>>count Trace(NBContact) TANTQUE i<NBContact cit1=myFolder1>>items(i) Tb_contacts.FirstName = cit1>>FirstName Tb_contacts.LastName = cit1>>LastName HAjoute(Tb_contacts) i++ FIN
Mais je n'ai qu'un seul enregistrement qui est ajouté dans la table.. j'ai l'impression que la boucle ne fonctionne pas.
Qu'en pensez vous ?
seb
Partager