View Single Post
  #1  
Old July 16th 09, 05:41 PM posted to microsoft.public.outlook.calendaring
baggers
external usenet poster
 
Posts: 5
Default counting appointments

Hi Guys
I'm trying to count the number of appointments in a calendar using the
restrict method.
If I add "items.IncludeRecurrences = True" then the numbers returned all
equal 2147483647.

Here is a code snippet:
dateFrom = Date.Today
dateTo = CDate("2014-01-01")
strFind = "[Start] = " & DoubleQuote(Format(dateFrom, "dd MMM yyyy")) & "
AND [Start] " & DoubleQuote(Format(dateTo, "dd MMM yyyy"))
items = mapi.GetFolderFromID(sID).Items
items.Sort("[Start]")
items.IncludeRecurrences = True
restrictedItems = items.Restrict(strFind)
itemCounter = itemCounter + restrictedItems.Count

can anyone see where the problem lies?

Thanks
Ads