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 :

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
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..

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