Hi All,

Want to see something neat? Outlook supports automating it's Inspectors and Explorers. While these objects leave a lot to be desired in terms of PEMs, it can still save you the trouble of storing addresses and email in VFP tables when you can make Outlook do that work.

To see an Inspector form for a Contact:

oOL=CREATEOBJECT("Outlook.Application")
oNS=oOL.GetNameSpace("MAPI")
oCF=oNS.GetDefaultFolder(10)  && Default ContactItems
oItem=oCF.Items.Find('[FullName]="Hank Aaron"')
IF !ISNULL(oItem)
   oItem.GetInspector
   oItem.Display  && Activate also works
ENDIF

If you close the Inspector form via the Close box, you will have to recreate oItem to open another one.
To see an Explorer form for all default ContactItems:

oOL=CREATEOBJECT("Outlook.Application")
oNS=oOL.GetNameSpace("MAPI")
oCF=oNS.GetDefaultFolder(10)  && Default ContactItems
oCF.GetExplorer
oCF.Display && Activate works here as well

If you close the Explorer via the Close box, you will have to recreate the oCF item.

Neat, huh?