<div>
Not sure which object model or language you want to use, but from Outlook 2K &amp;&nbsp;VBA.<br />
<br />
Dim objApp as Outlook.Application<br />
Dim objNS as Outlook.NameSpace<br />
Dim objAdrLst as Outlook.AddressList<br />
<br />
Set objApp = CreateObject(&quot;Outlook.Appl<wbr />ication&quot;)<br />
set objNS = objApp.GetNameSpace(&quot;MAPI&quot;<wbr />)<br />
objNS.Logon &quot;&quot;,&quot;&quot;, False, False<br />
<br />
Set objAdrLst = objNS.AddressLists(&quot;Person<wbr />al Address Book&quot;)<br />

</div>


Not sure which object model or language you want to use, but from Outlook 2K & VBA.

Dim objApp as Outlook.Application
Dim objNS as Outlook.NameSpace
Dim objAdrLst as Outlook.AddressList

Set objApp = CreateObject("Outlook.Application")
set objNS = objApp.GetNameSpace("MAPI")
objNS.Logon "","", False, False

Set objAdrLst = objNS.AddressLists("Personal Address Book")


<div>
Using Office 97. &quot;Outlook.AddressList&quot; is unknown.
</div>


Using Office 97. "Outlook.AddressList" is unknown.

<div>
Thanks Neo_mvps. Good research job.
</div>


<div>
<div class="content wysiwyg-content">
We have multiple address books set up on Exchange. How do I access these through code?
</div>
</div>


We have multiple address books set up on Exchange. How do I access these through code?

Accessing Exchange address books

Microsoft Outlook is a personal information manager from Microsoft, available as a part of the Microsoft Office suite. Although often used mainly as an email application, it also includes a calendar, task manager, contact manager, note-taker, journal, and web browser.