This is a general question (for now) for any of you:
Peradventure, I'm trying to make VFP reports based on my 'dangerous' knowledge of Visual Basic, COM-Automation, and MS Outlook CONTACTS and/or APPOINTMENTS/SCHEDULES.
I suppose one might start by something like:
1) Import OUTLOOK ITEMS,TASKITEMS,etc. into CURSORS or TEMP-TABLEs.
2) Import oITEMS into VFP ARRAYs and then into temptables.
E.g.,
CREATE CURSOR myCursor(Start T,end T,body c(250))
LOCAL oOutlook,oNameSpace,oDefaultFolder
oOutlook = CREATEOBJECT("outlook.application"
oNameSpace = oOutlook.getnamespace("MAPI"
oDefaultFolder=oNameSpace.GetDefaultFolder(olFolderCalendar)
oItems = oDefaultFolder.items
FOR EACH oItem IN oItems
INSERT INTO myCursor (start,end,body) VALUES (oItem.start,oItem.end,oItem.body)
ENDFOR
SELECT myCursor
Is there not a more seemless way to get those OUTLOOK ITEMS into VFP REPORTS; any suggestions?
Thanks in advance,
Philip M. Traynor, DPM
Peradventure, I'm trying to make VFP reports based on my 'dangerous' knowledge of Visual Basic, COM-Automation, and MS Outlook CONTACTS and/or APPOINTMENTS/SCHEDULES.
I suppose one might start by something like:
1) Import OUTLOOK ITEMS,TASKITEMS,etc. into CURSORS or TEMP-TABLEs.
2) Import oITEMS into VFP ARRAYs and then into temptables.
E.g.,
CREATE CURSOR myCursor(Start T,end T,body c(250))
LOCAL oOutlook,oNameSpace,oDefaultFolder
oOutlook = CREATEOBJECT("outlook.application"

oNameSpace = oOutlook.getnamespace("MAPI"

oDefaultFolder=oNameSpace.GetDefaultFolder(olFolderCalendar)
oItems = oDefaultFolder.items
FOR EACH oItem IN oItems
INSERT INTO myCursor (start,end,body) VALUES (oItem.start,oItem.end,oItem.body)
ENDFOR
SELECT myCursor
Is there not a more seemless way to get those OUTLOOK ITEMS into VFP REPORTS; any suggestions?
Thanks in advance,
Philip M. Traynor, DPM