General information
Category:
COM/DCOM and OLE Automation
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
******************************************************************
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only