Hi John,
I have code here in the Files section that does pretty much the same thing. It's called
ROC (Raid on Contacts), in case anyone is to lazy to cut-and-paste code :-)
>
>
>#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
>
>
------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05
