Discussion :

[Xilver]

Bonjour, cette fois-ci j'ai un problème avec les contacts Outlook !

Voici mon code actuel :

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
27
28
29
30
31
PROCEDURE PF_ListeContacts()
 
//Déclarations des variables
//--------------------------
i 			est un entier 
ln_Lignecontact 	est un entier
NbContact		est un entier
 
Contact		           est un objet Automation dynamique
 
//Recherche des contacts
//----------------------
NbContact  		= ContactItem>>Items>>Count
 
	POUR i = 1 _A_ NbContact
 
		//On récupère l'objet ContactItem
		//-------------------------------
		Contact	= ContactItem>>Items(i)
 
		Trace(Contact>>FullName)
 
		//On affecte les lignes
		//---------------------
		ln_Lignecontact	= TableAjouteLigne(TB_ListeContact)
 
		TB_ListeContact.CT_ID		[ln_Lignecontact] = Contact>>EntryId	
		TB_ListeContact.CT_Nom	        [ln_Lignecontact] = Contact>>FullName
		TB_ListeContact.CT_Adresse	[ln_Lignecontact] = Contact>>Email1Address	
 
	FIN

J'ai +de 500 contacts et il m'en récupère 50 et après il me renvoie l'erreur :

"Erreur à la ligne 33 du traitement Procédure locale PF_ListeContacts.
Vous accédez au membre Automation FullName.
Erreur 80020006, Nom inconnu"

Il n'y a qu'en mettant l'id qu'il me récupère tout. D'où peut venir le problème?

ps : ContactItem est déclaré dans le code du projet comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
CONSTANTE
 
Cst_olFolderContacts = 10  //Pointe vers la liste des contacts
 
FIN
 
GLOBAL
 
ContactItem  est un objet Automation dynamique
 
ContactItem = objNameSpace>>GetDefaultFolder(Cst_olFolderContacts)

[Xilver]

Bon je suis allé voir du côté de la liste d'adresses globale d'Exchange et j'ai mon code qui est comme cela :

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
27
28
29
30
31
32
33
34
PROCEDURE PF_ListeContacts()
 
//Déclarations des variables
//--------------------------
i 					est un entier 
ln_Lignecontact 	est un entier
NbContact			est un entier
 
	//Recherche des contacts Exchange
	//-------------------------------
	NbContact  		= AddressEntries>>Count
 
		POUR i = 1 _A_ NbContact
 
			AddressEntry	=	AddressEntries>>Item(i)
 
			SI AddressEntry>>AddressEntryUserType = 0 ALORS
 
				ExchUser	= AddressEntry>>GetExchangeUser
 
				SI ExchUser>>LastName <> "" ALORS
 
					//On affecte les lignes
					//---------------------
					ln_Lignecontact	= TableAjouteLigne(TB_ListeContact)
 
					TB_ListeContact.CT_ID		[ln_Lignecontact] = ExchUser>>EntryId	
					TB_ListeContact.CT_Nom		[ln_Lignecontact] = ExchUser>>LastName
					TB_ListeContact.CT_Prenom	[ln_Lignecontact] = ExchUser>>FirstName
					TB_ListeContact.CT_Adresse	[ln_Lignecontact] = ExchUser>>PrimarySmtpAddress
 
				FIN
			FIN
		FIN

Mais il me renvoie rien dans mon tableau. Lorsque je fais trace(NbContact) il me renvoie 602.

Edit : Du coup je récupère que les contacts du dossier par défault(540) comme ça :

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
27
28
PROCEDURE PF_ListeContacts()
 
//Déclarations des variables
//--------------------------
i 						 est un entier 
ln_Lignecontact 		 est un entier
NbContact				 est un entier
Contact				 	 est un objet Automation dynamique
 
		//Recherche des contacts Exchange
		//-------------------------------
		NbContact  		= ContactItem>>Count
 
		POUR i = 1 _A_ NbContact
 
			Contact 	= ContactItem>>Item(i)
 
			SI Contact>>Class = 40 ALORS
 
				ln_Lignecontact	= TableAjouteLigne(TB_ListeContact)
 
				TB_ListeContact.CT_ID		[ln_Lignecontact]	=	Contact>>EntryID
				TB_ListeContact.CT_Nom		[ln_Lignecontact]	=	Contact>>LastName
				TB_ListeContact.CT_Prenom	[ln_Lignecontact]	=	Contact>>FirstName
				TB_ListeContact.CT_Adresse	[ln_Lignecontact]	=	Contact>>Email1Address
			FIN
 
		FIN

Mais bizarrement, j'en récupère que 519. Je vais le mettre en résolu