Address lists

  • Thread starter Thread starter Dave
  • Start date Start date
D

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?
 
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
 
Back
Top