Invoke address book dialog

[Andrew Vinogradov]

I need to invoke AddressBook dialog (it displays when you clicking at
tool -> address book).
I need to invoke it with default settings of the microsoft outlook,
current user profile.

A know one way throw cdo 1.21, but i don't now the way how to connect
to use default outlook settings at Session.Logon method.

May be there is another way? My program is planned to use on many
computers, so it is preferable not to use unordinary libraries...

 

[Ken Slovak - [MVP - Outlook]]

CDO 1.21 or Extended MAPI are the ways if you don't want to use any 3rd
party libraries such as Redemption. However CDO's Session.AddressBook will
fire security prompts as I recall.

To piggy-back logon to CDO when an Outlook session is running use:
Dim oCDO As MAPI.Session
Set oCDO = CreateObject("MAPI.Session")
oCDO.Logon "", "", False, False

Of course CDO 1.21 is also an optional installation for Outlook 2000 and
later so it may not even be installed.