How to access MSOutlook Address Book using VB?

[GNMN]

Anybody knows how to access Outlook Address book using VB. Thanks!

Gene

 

[JerryKlmns]

GNMN,
For your general question, here is a general approach.
Start with declering ..

Dim objOutlook As Outlook.Application
Dim myNSpace As Outlook.NameSpace
Dim myAdList As Outlook.AddressList
Dim myAdEntry As Outlook.AddressEntry
Dim myMberEntry As Object
Dim YourAddressList as String
Dim YourEntry as String

Create a new Outlook instance

Set objOutlook = New Outlook.Application

Get the NameSpace

Set myNSpace = objOutlook.GetNamespace("MAPI")

Get your address list you need

Set myAdList = myNSpace.AddressLists(YourAddressList)

Get all the entries in that address list

Set myAdEntry = myAdList.AddressEntries(YourEntry)

and for each one of them

For Each myMberEntry In myAdEntry.Members

       do something

Next

and when done, dont forget to clean up the mess ...

    Set myAdEntry = Nothing
    Set myAdList = Nothing
    Set myNSpace = Nothing
    objOutlook.Quit
    Set objOutlook = Nothing

If you need something more, just post.

 

[GNMN]

Thank you, JerryKlmns.

All I want to do is that I have a command button "To" caption as with MS outlook new message window. When I click this button, an address book window will appear and then will select the recipients, then when I click OK, all the selected recipients will be copied on text field.

Appreciate if you could publish the running code for this function.

Regards!



Gene