Thanks. I will read up on it.
>It's what MS calls security.
>There is a product called 'Redemtion' which get you around it...
>
>
>Peter
>
>>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).
>>
>>>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
Greg Reichert