FoxPro/Visual FoxPro - libreta de direcciones del outlook

me gustaria saber si alguien tiene o sabe como llamar la libreta de direccones del outlook, desde una ventana de fox??

Este codigo puede valer eso dicen:

oOlApp = CreateObject("Outlook.Application") && Open Outlook
oOlNS = oOlApp.GetNameSpace("MAPI") && Set name space
oOlC = oOlNS.GetDefaultFolder(10) && 10 = Default contacts folder
SELECT vfpcontacts
FOR i = 1 TO oOlC.Items.Count
WAIT WIND "Record # "+ALLT(STR(i))+" of "+ALLT(STR(oOlC.Items.Count)) NOWAIT
INSERT INTO vfpcontacts (lastname,firstname,fullname,company,email1addr,email1disp,;
email2addr,email2disp,email3addr,email3disp,nickname) ;
VALUES ;
(oOlC.Items(i).LastName,;
oOlC.Items(i).FirstName,;
oOlC.Items(i).FullName,;
oOlC.Items(i).CompanyName,;
oOlC.Items(i).Email1Address,;
oOlC.Items(i).Email1DisplayName,;
oOlC.Items(i).Email2Address,;
oOlC.Items(i).Email2DisplayName,;
oOlc.Items(i).Email3Address,;
oOlC.Items(i).Email3DisplayName,;
oOlC.Items(i).NickName)

ENDFOR

espero te sirva...