>I am trying to send contact info to Outlook
>the following program imports about 200 or so out ot 4000+ and ten hangs with
>the 'Swich to application' ole error dialog box...
>What am I doing wrong?
> oContact=oOutlook.CreateItem(2)
> WITH oContact
Peter
i have a similar routine that uses the items.add() method.
#DEFINE olFolderContacts 10
oOutlook = CREATEOBJECT("Outlook.APPLICATION")
oNameSpace = oOutlook.getnamespace('MAPI')
oContactFolder=oNameSpace.GetDefaultFolder(olFolderContacts)
oItems = oContactFolder.items
scan
oContact = oitems.add()
with oContact
etc etc
.save()
endwith
endscan
worth a try ?
n