About ClickYes, the idea is sound, but I am afraid it would open some security holes for other applications. Besides, I do not have any real need for the contact list at the monent. I am just saving a copy of the routine to my toolbox in case I may need it later. Thanks for suggestion.

>>I like this approach. But, I receive a dialog tell me that an attempt to access outlook is being done, and if I wish to allow it to occur. Do you know any way around this dialog? (it coming from Outlook 2003, and not my anti-virus application).
>>
>In addition to Peter's response you may try free utility called ClickYes. Just search on google for it.
>
>>>would this do? you wil have to modify the code slightly
>>>

>>>CREATE CURSOR emaillist ;
>>> (Firstname C(30), Lastname C(30), email C(30))
>>>
>>>
>>>#define olFolderContacts 10
>>>
>>>outlook = CreateObject("Outlook.Application")
>>>namesp = outlook.GetNamespace("MAPI")
>>>folder = namesp.GetDefaultFolder(olFolderContacts)
>>>contacts = folder.Items
>>>cnt = contacts.Count
>>>
>>>SELECT 0
>>>SELECT emaillist
>>>
>>>For i = 1 To cnt
>>>	contact = contacts.Item(i)
>>>	
>>>	IF contact->FirstName = ' ' OR contact->LastName = ' ' OR contact->Email1Address = ' '
>>>		* do nothing
>>>	ELSE
>>>		APPEND BLANK
>>>		REPLACE Firstname WITH contact->FirstName
>>>		REPLACE Lastname WITH contact->LastName
>>>		REPLACE email WITH contact->Email1Address
>>>	ENDIF
>>>	****? contact->FirstName, contact->LastName, contact->Email1Address
>>>Next i
>>>
>>>BROWSE TITLE 'Contact list'
>>>outlook.Quit()
>>>

>>>~M
>>>
>>>>How can I call the outlook phonebook and get the email address ?
>>>>thanks a lot