> >#Define olFolderContacts 10 >oOutlook = createobject("outlook.application") >oNameSpace = oOutlook.GetNameSpace("MAPI") >oContacts = oNameSpace.GetDefaultFolder(olFolderContacts).Items >count = 0 >create cursor contacts ; > (fullname c(50),email1address c(50)) >For Each Contact In oContacts > m.fullname = contact.fullname > m.email1address = contact.email1address > Insert Into Contacts From Memvar >Next Contact > >