oOlApp = CreateObject("Outlook.Application") && Open Outlook oOlNS = oOlApp.GetNameSpace("MAPI") && Set name space oOlC = oOlNS.GetDefaultFolder(10) && 10 = Default contacts folder cFind="John Smith" oItem=olC.Items.Find('[FullName] = "&cFind"') IF !ISNULL(oItem) oItem.GetInspector oItem.Display ELSE oExplorer=olC.GetExplorer oExplorer.Display ENDIFYou can substitue FOR EACH ... NEXT loop for the Find if you want.