I can use VFP to find CONTACTS in OUTLOOK but i cant find APPOINTMENTS (calendar items). I want to avoid adding duplicate appointments and i want to use VFP to delete outlook appointments once they get to be old. I have been using the Object Browser to view AppointmentItem properties and there are just a few 'fields' that are i could update with a PK value when first adding appointments. I could simply FIND these PK values to determine if the appointments exist and if they can be deleted.

Finding contact code below:

oOutLookObject = CreateObject("Outlook.Application")
olNameSpace = oOutlookObject.GetNameSpace("MAPI")
oContacts = olNameSpace.GetDefaultFolder(olFolderContacts).Items

oContactItem = oContacts.Find("[FileAs]='Doe, John'")
IF ISNULL(oContactItem)
   oContactItem = oOutLookObject.CreateItem(olContactItem)
ENDIF

Can someone post "find" and "delete" appointment code?