Chris,

Try this approach.


******************************************************************
create table appoint ( subject c(50))
loOutLook = CREATEOBJECT('Outlook.Application')
loNameSpace = loOutlook.GetNameSpace('Mapi')
loAppointments = loNameSpace.Folders['Personal Folders'].Folders['Calendar'].items
for i = 1 to loAppointments.count
loAppointment = loAppointments.item[i]
with loAppointment
insert into appoint values ( .subject)
*insert additional fields here.
endwith
release loAppointment
endfor
******************************************************************

The name in the folders section of the code references the name of the folder in outlook. If you do not know the name do the following.

******************************************************************
loOutLook = CREATEOBJECT('Outlook.Application')
loNameSpace = loOutlook.GetNameSpace('Mapi')
for i = 1 to loNameSpace.folder.count
?loNameSpace.folders[i].name
endfor
******************************************************************