Outlook VBA - "show this address list first"

I would like to be able to set a certain address list (a list that exists under the Outlook Address Book) to be the first list shown in the Outlook Address Book and when composing messages etc.

I will use this VB.NET command line app, but VBA code will work.
LVL 27
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Stacy SpearPresident/Principal ConsultantCommented:
On one box or many? Seems easier to do it manually unless it must be done across many of them.
ddrudikAuthor Commented:
Too many to make manual changes feasible, especially given that an unattended option likely exists with the use of code.
Click on the Address book icon in Outlook, choose Tools->Options, select which list in the dropdown: Show this address book first
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

ddrudikAuthor Commented:
Too all who read this message, please note that manual options will not be considered for acceptable solutions.  I am asking for VBA code to make this an unattended change.
Are you using group policy to manage your network?

If so, you can edit the domain policy to set the Address Book First like peakpeak said.
ddrudikAuthor Commented:
This solution would need to be VB code.
Stacy SpearPresident/Principal ConsultantCommented:
Here is some sample code. I've only done it be C++ for an address list.


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.