myOutlook=ObjetActif("OutLook.Application")
myNameSpace=myOutlook>>GetNamespace("MAPI")
myAddressList=myNameSpace>>AddressLists("Liste d'adresses du bureau de poste")
myAddressEntries=myAddressList>>AddressEntries(25)
temp=myAddressEntries>>Name
TableAjoute(TB_Destinataire,temp)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2885&post_id=12037