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