When trying to run the code DisplayOutlookContactNames I get an error message an object cannot be found on the line

Set olAddresslist = olNameSpace.AddressLists("Contacts")

I had also added to the references Microsoft Outlook 9.0 Object library as it previously did not allow the line

Dim olNameSpace As Outlook.NameSpace

Roger Waters

Are you still having this problem?

XUMUSKIEFAN
Wrox Moderator