>I abandoned Vista nad reinstalled XP on my machine and my code works without a hitch (Outlook 2007). So the problem was VISTA!

ouch!

>
>Are you doing alot with outlook?

I have one app that uploads/downloads/syncs with contacts, tasks and diary.

>I have to create some synch program to copy the latest changes from outlook to my VFP table and Vice Versa.
>Is it possible to have a special folder for this so that every user will use the same data rather their own contacts/inbox/calendar
>
>Peter

(untested)

#DEFINE olFolderCalendar 9
#DEFINE olFolderContacts 10
#DEFINE olFolderDeletedItems 3
#DEFINE olFolderInBox 6
#DEFINE olFolderJournal 11
#DEFINE olFolderNotes 12
#DEFINE olFolderOutBox 4
#DEFINE olFolderSentMail 5
#DEFINE olFolderTask 13

lcFolder = "myFolder" 
oDefaultFolder =oNameSpace.Getdefaultfolder(olFolderContacts)
If oDefaultFolder.name == lcFolder
	oContactFolder = oDefaultFolder
Else
	oFolders=oDefaultFolder.folders
	For EACH oFolder IN oFolders
		If oFolder.name == lcFolder
			oContactFolder = oFolder
                           Exit 
		Endif
	Endfor
Endif

oItems = oContactFolder.items
For EACH oItem IN oItems

next

oNewItem = oItems.add()

hth

n