PMI, GT,
This should work to show contacts:
oOutlook =CREATEOBJECT("Outlook.Application")
oNameSpace =oOutlook.GetNameSpace("MAPI")
oContacts =oNameSpace.GetDefaultFolder(10)
oExplorer =oContacts.GetExplorer
oExplorer.Display
------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05