// ----------------------------------------------------------------------------
//
// Insérer dans Les Contacts Outlook des données stockées dans une BDD (ou autre)
//
// ----------------------------------------------------------------------------


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

objApp=ObjetActif("OutLook.Application")
objNS=objApp>>GetNamespace("MAPI")
//Récuperer le dossier contact de votre choix
myFolder1=objNS>>PickFolder

//REQUETE CLASSIQUE WINDEV a remplacer par votre type de requete habituelle (HexecuteRequeteSQL ...)
ReqFournisseur=Req("Select * from fournisseurs",ReqFournisseur)

HLitPremier(ReqFournisseur)
TANTQUE PAS HEnDehors(ReqFournisseur)
	cit1 = myFolder1>>Items>>Add(2)
	//Nom
	cit1>>FirstName =ReqFournisseur.Nom
	//Prenom
	cit1>>LastName =ReqFournisseur.prenom
	// Société
	cit1>>CompanyName=ReqFournisseur.RaisonSociale
	// Premiere Adresse Email
	cit1>>Email1Address = ReqFournisseur.Mail
	// RUE DE L'ADRESSE
	cit1>>BusinessAddressStreet=ReqFournisseur.AdressePaiement
	//CODE POSTAL 
	cit1>>BusinessAddressPostalCode=ReqFournisseur.CPPaiement
	// VILLE
	cit1>>BusinessAddressState=ReqFournisseur.VillePaiement
	//fax
	cit1>>BusinessFaxNumber=ReqFournisseur.FaxPaiement
	//Telephone
	cit1>>BusinessTelephoneNumber=ReqFournisseur.TelPaiement
	// web site
	cit1>>WebPage=ReqFournisseur.Site
	//classement du titre du contact ici(SOCIETE et FIRSTNAME)	
	SI cit1>>FirstName <>"" ALORS
		cit1>>FileAs=cit1>>CompanyName + RC + "(" + cit1>>FirstName + ")"
	SINON
		cit1>>FileAs=cit1>>CompanyName 
	FIN
	//CATEGORIE DU CONTACT 
	cit1>>Categories="Fournisseurs"
	cit1>>SAVE
	
	HLitSuivant(ReqFournisseur)
FIN