Access my Outlook Address Book

[soupisgood84]

Just a quick thought......
Is it possible to access my Outlook Address Book from a form in Access?

I am going to send a monthly report and I have a form that lists the address of the recipients, but I would like to have an option to select other people from my address book.

Any ideas......Thanks!

 

[kjv1611]

Yes.

You need to link to or import your contacts from outlook, first, into a table.

Like this:

Access Main Window:
Files Menu
->Get External Data
->Import
->In next window, choose from "Files of type", Outlook
->You'll then be prompted for what folder(s) you want to import.

I didn't check this with "link" instead of "import", but I would guess that will work the same.

--

"If to err is human, then I must be some kind of human!" -Me

 

[soupisgood84]

That works....but the latency on it is huge.

Is there a way to access Outlook directly? I am thinking along the lines of the pop-up that the Address Book app does on Outlook.

 

[kjv1611]

I think this is the closest you can get, outside of using a connection object (SQL and VBA) to Outlook. The VBA helpfile has a lot of information along those lines if you want to try that route.

--

"If to err is human, then I must be some kind of human!" -Me

 

[Remou]

Here are a few notes, but a link may be the best bet.

Dim olApp As Outlook.Application
Dim olMapi As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items

Set olApp = New Outlook.Application
Set olMapi = olApp.GetNamespace("MAPI")
Set olFolder = olMapi.GetDefaultFolder(olFolderContacts)
Set olItems = olFolder.Items


For I = 1 To olItems.Count
Debug.Print olItems(I)
Debug.Print olItems(I).FullName
Debug.Print olItems(I).Email1Address
Next I