// ---------------------------------------
// Récupérer des infos des contacts outlook
// ----------------------------------------

ReqFournisseur est une Source de Données

objApp est un objet OLE dynamique
objNS est un objet OLE dynamique
myFolder1 est un objet OLE dynamique
objFolder 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
TANTQUE i<NBContact
	cit1=myFolder1>>items(i)	
	Trace(cit1>>FirstName + " - " + cit1>>CompanyName + " - " + cit1>>Email1Address + "- ETC ..." )
	i++
FIN

// ----------------------------------------------
//   Les infos à récupérer : (EXEMPLE)
// ----------------------------------------------
//	//Nom
//	cit1>>FirstName 
//	//Prenom
//	//cit1>>LastName 
//	// Société
//	cit1>>CompanyName
//	// Premiere Adresse Email
//	cit1>>Email1Address 
//	// RUE DE L'ADRESSE
//	cit1>>BusinessAddressStreet
//	//CODE POSTAL 
//	cit1>>BusinessAddressPostalCode
//	// VILLE
//	cit1>>BusinessAddressState
//	//fax
//	cit1>>BusinessFaxNumber
//	//Telephone
//	cit1>>BusinessTelephoneNumber
//	// web site
//	cit1>>WebPage=ReqFournisseur.Site
//	//CATEGORIE
//	cit1>>Categories