Accessing Outlook Global Address list

Submitted by Sergey on January 1, 2008 - 19:39 UTC
topic: 
code
vfp
automation
outlook
foxpro
sergey

Code is based on Building Applications with Microsoft Outlook Version 2002


$SAMPLECODE$





 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13





oOA = CREATEOBJECT("Outlook.Application")
oNS = oOA.GetNamespace("MAPI")
* Get all available address lists
oALs = oNS.AddressLists()
* Get Global Address List
oGAL = oALs.Item("Global Address List")
* Get AddressEntries collection object
oAEs = oGAL.AddressEntries
? oAEs.Count
? oAEs.Item(1).Name

Comments