Set
objItems = objCalendar.Items
objItems.Sort
"[Start]"
objItems.IncludeRecurrences =
True
Set
objItem = objItems.Find( _
"[Start] >= "
""
& Format$(
Date
,
"yyyy-mm-dd"
) &
""
""
&
" And "
& _
"[End] <= "
""
& _
Format$(DateAdd(
"m"
, 1,
Date
),
"yyyy-mm-dd"
) &
""
""
)
Do
Until
objItem
Is
Nothing
Debug.Print Format$(objItem.Start,
"dd.mm.yy hh:nn:ss"
);
" - "
; Format$(objItem.
End
,
"dd.mm.yy hh:nn:ss"
), objItem.Subject
Set
objItem = objItems.FindNext()
Loop