Address lists

[Dave]

I'm using Outlook Redemption to bypass the security
warning message when I access the names in the address
list for all users. Heres my code

set AddressList = CreateObjec("Redemption.AddressLists")
AddressList = Outlook.Session.AddressLists.Item("All
Users")
msgbox AddressList.AddressEntries.Item(1).Name

It still displays the security warning.

Is there a way to bypass the warning using redemption for
accessing address lists?

 

[Ken Slovak - [MVP - Outlook]]

You are creating a Redemption AddressLists collection and trying to assign
it with a single AddressList, which is a type mismatch error.

Dim rdmAddressLists As Redemption.AddressLists
Dim rdmAddressList As Redemption.AddressList

Set rdmAddressLists = CreateObject("Redemption.AddressLists")
rdmAddressList.Item = Outlook.Session.AddressLists.Item("All Users")
MsgBox rdmAddressList.AddressEntries.Item(1).Name