Private Sub Application_Startup()




 Const olFolderCalendar = 9

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)

Set colItems = objFolder.Items

strFilter = "[Start] >= ""#" & DateAdd("d", -5, Date) & "#"""

 strFilter = strFilter & " and [End] <= ""#" & DateAdd("d", 5, Date) & "#"""

Set colFilteredItems = colItems.Restrict(strFilter)
 
 
 
 
 
For Each objItem In colFilteredItems
    MsgBox (objOutlook.Session)
      MsgBox (objItem.Subject)
      MsgBox (objItem.Start)
      MsgBox (objItem.End)
     MsgBox (objItem.Duration)
   
Next




   
End Sub
