>yes. what i did for testing was, from within outlook, entered a calendar item called test. then, from within foxpro, i did the following:
>
>#include msoutl8.h
>oOutlookObj = CREATEOBJECT("Outlook.Application")
>oNamespace = oOutlookObj.GetNamespace("MAPI")
>fldime = oNamespace.folders("Personal Folders").folders("Calendar").folders("John")
>oappt_appt = fldime.Items.Find("[subject] = Test")
>STORE oappt_appt.EntryID TO entry
>oappt_appt = fldime.Items.Find("[entryid] = " + entry)
>
>now, my computer @ home has outlook2003. i just realized this and thought it might be the cause.
>
>any ideas?
>
>paul
Local array aAppts[3]
For ix = 1 to 3
aAppts[m.ix] = CreateEntry(m.ix)
endfor
For ix = 1 to 3
oAppt = FindEntry( aAppts[m.ix] )
? oAppt.Subject, oAppt.Start, oAppt.End
endfor
Function CreateEntry(tnDatePlus)
oOutlookObj = CREATEOBJECT("Outlook.Application")
oNamespace = oOutlookObj.GetNamespace("MAPI")
lofold = onamespace.GetdefaultFolder(9)
loAppt = loFold.Items.Add()
loAppt.Subject = "test"+Transform(m.tnDatePlus)
loAppt.Start = Datetime() + m.tnDatePlus * 86400
loAppt.End = Datetime() + m.tnDatePlus * 86400 + 3600
loAppt.Save
return loAppt.EntryID
Function FindEntry(tcId)
oOutlookObj = CREATEOBJECT("Outlook.Application")
oNamespace = oOutlookObj.GetNamespace("MAPI")
lofold = onamespace.GetdefaultFolder(9)
oItem = onamespace.GetItemFromID(m.tcID, loFold.StoreID)
Return oItemCetin
