Outlook address book look up facility

[mattkorguk]

Good morning All,

I have built a small database usage utility which basically shows who logged into the Db, when and what version was used.

I'm bringing back the users log on Id such as AB12345 and I'd like to be able to some how link into the Outlook address book to be able to resolve the users name and possibly location if stored in their Outlook properties.

Is this possible?
Any suggestions would be most appreciated.

Matt

[MMcCarthy]

Hi Matt

You are talking about Outlook Automation which I am not very familiar with but I will check with some of the other experts.

Mary

[NeoPa]

I can't help much here I'm afraid, but I do know that it's possible to link into some of the Outlook containers as tables using File / Get External Data and selecting files of type Outlook().
How practical this would be in your situation I don't know.

[Killer42]

I can't help much here I'm afraid, but I do know that it's possible to link into some of the Outlook containers as tables using File / Get External Data and selecting files of type Outlook().
How practical this would be in your situation I don't know.

If this doesn't get you what you need, you might try posting a question in the Visual Basic forum. I see Outlook-related topics there from time to time.

[FishVal]

Good morning All,

I have built a small database usage utility which basically shows who logged into the Db, when and what version was used.

I'm bringing back the users log on Id such as AB12345 and I'd like to be able to some how link into the Outlook address book to be able to resolve the users name and possibly location if stored in their Outlook properties.

Is this possible?
Any suggestions would be most appreciated.

Matt

Hi!

I'm not very experienced with Outlook object model, but I've tried the following code retrieving AddressList from Outlook and it works fine.
Sure this is very simple but it gives a basic idea I think.

Outlook popups a security dialog than the sub tries to retrieve AddressList. At this point I don't yet know how to avoid it.

Public Sub GetAddressEntries()
 
    Dim appOutlook As Outlook.Application
    Dim objAddressList As Outlook.AddressList
 
    Set appOutlook = CreateObject(Class:="Outlook.Application")
    Set objAddressList = appOutlook.Session.AddressLists(1)
 
    For Each ae In objAddressList.AddressEntries
        Debug.Print ae.Name
    Next
 
    appOutlook.Quit
    Set objAddressList = Nothing
    Set appOutlook = Nothing
 
End Sub