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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement