>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