This is a sample of how to acheive this ... look at VBA help for Outlooks Object Model for more details, alternatively Office Automation in Visual Foxpro form Hentzenwerke is a good prima .
* -- Start of Sample Code -
* -- Define Constants as per Outlooks Object Model
#DEFINE olFolderDisplayNormal 0
#DEFINE olFolderCalendar 9
* -- Create Outlook Object ready for Automation
oOutlook = CreateObject("Outlook.Application")
* - Creaet NameSpace and Explorer Object so you can see outlook
oNameSpace = oOutlook.GetNameSpace("MAPI")
oExplorer = oOutlook.Explorers.Add(oNameSpace.Folders[1],olFolderDisplayNormal)
oExplorer.Activate()
* -- Define Calendar Object
oCalendar = oNameSpace.GetDefaultFolder(olFolderCalendar)
* -- Set Search Criteria
cFilter = '[Start] = "CTOD(10/12/01)"'
* -- Search for Items
oAppt = oCalendar.Items.Find(cFilter)
* -- Store Subject Header in variable and then display it
cSubject = oAppt.Subject
wait window cSubject && or alternatively
Replace MyAppointmentsField with cSubject
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