Access referencing data from Outlook Calendar
Collapse
X
-
Same thought as you've already done...
Create your outlook instance. (Application Automation)
Code:' If Outlook is open, use GetObject, otherwise open Outlook Set objOutlook = GetObject(, "Outlook.Application") If objOutlook Is Nothing Then Set objOutlook = CreateObject("Outlook.Application")
Code:set objCalendarItems = objOutlook.getdefaultfolder(olFolderCalendar) zstrRestrictto = "[Start] <= & _ zEnddate & "AND [End] >=" & zStartDate
(( See here too: Search the Calendar for Appointments that Occur Partially or Entirely in a Given Time Period ))
Comment