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 = ' ' <<----When there are 10 email address in the phone book . There is a 10 dialog box prompt.
HOw can solve it ???
Please help , if the user got 200 email, the dialog box will prompt out 200 times???