When I access the email Recipients(1).Name outlook is puping up a message box asking to allow access to the address book. This append only with OutLook 2000 V9 sp3.

I need to set this off in Outlook. Any one done that before?

This is what I do to get the message box from Outlook:

OutLook=CREATEOBJECT("Outlook.Application")
olNameSpace = OutLook.GetNameSpace("MAPI")
oInbox = olNameSpace.Folders("Mailbox - Jean-Rene Roy").Folders("Inbox")

For each o in oInbox.Items
    Wait window o.Recipients(1).Name
endfor