Accessing Global Address List from Access/Excel

[ded]

Does anyone know of a way in which I can access the Global Address List which Outlook 98 displays in the Address Book from Excel 97 or Access 97 so that I can produce lists of users dependant on criteria from a form or cells?

Cheers,
Duncan

 

[ide]

2000..

'***************************************************************************************************
Dim myOlApp, myNameSpace, myEntity As Object
Set myOlApp = CreateObject("Outlook.Application&quot
Set myNameSpace = myOlApp.GetNamespace("MAPI&quot
MsgBox myNameSpace.AddressLists.Count
Set myGAddressList = myNameSpace.AddressLists("Global Address List&quot
'Set myPAddressList = myNameSpace.AddressLists("Personal Address Book&quot 'or so on..
MsgBox myGAddressList.AddressEntries.Count
For i = 1 To myGAddressList.AddressEntries.Count
'if in the addreess list are a number of _
adresses (at us 79000) it will be very slow.
Set myEntity = myGAddressList.AddressEntries(i)
If Left(myEntity.Name, 2) = "Ta" Then
MsgBox myEntity.Name
MsgBox myEntity.Address
End If
Next i