Counting days

[i.mangelsdorf]

Hi there

Is it possible to count the number of days a certain label type occurs
in a calendar?

Regards

Ian

 

[Ken Slovak - [MVP - Outlook]]

Yes. Use an AdvancedSearch to do that. It's the easiest way.

Set up the search criteria by opening a dialog for a custom calendar view.
Click Filter and go to the Advanced tab. Use the All Appointments setting to
add Label = whatever as a filter. Go to the SQL tab and check the box to use
only that. Copy the SQL criteria and that's your AdvancedSearch filter. Make
the search folder the calendar folder name and get the Count of the returned
Results collection.

An alternative would be to use the filter as a Restrict filter on the Items
collection of the folder using the "@SQL="filter undocumented syntax. Get
the Count of the returned Items collection.

 

[i.mangelsdorf]

Thanks for the Help Ken

I have a run into a couple of problems trying this. I am using

Sub SearchCalendar()

Dim objSch As Outlook.Search
Dim rsts As Outlook.Results
Dim i As Integer
blnSearchComp = False
Const strF1 As String = "urn:schemas:calendar:location = 'Kish
Island'"

Const strS1 As String = "IJM Travel Calendar"
Set objSch = Application.AdvancedSearch(Scope:=strS1,
Filter:=strF1, SearchSubFolders:=False, Tag:="SubjectSearch")
While blnSearchComp = False
DoEvents
Wend
Set rsts = objSch.Results

MsgBox rsts.Count



End Sub
(straight out of the Online Help)

I end up with an error in the set objSch line which I assume is the way
the strF1 string has been set, is there anything there that ive messed
up???

secondly , I can this will work fine for counting the number of events
that meet the search but where I have events running multiple days will
it not just report this as 1 event not duration??

Once again your help is appreciated

Cheers

Ian

 

[i.mangelsdorf]

Thanks for the Help Ken

I have a run into a couple of problems trying this. I am using

Sub SearchCalendar()

Dim objSch As Outlook.Search
Dim rsts As Outlook.Results
Dim i As Integer
blnSearchComp = False
Const strF1 As String = "urn:schemas:calendar:location = 'Kish
Island'"

Const strS1 As String = "IJM Travel Calendar"
Set objSch = Application.AdvancedSearch(Scope:=strS1,
Filter:=strF1, SearchSubFolders:=False, Tag:="SubjectSearch")
While blnSearchComp = False
DoEvents
Wend
Set rsts = objSch.Results

MsgBox rsts.Count



End Sub
(straight out of the Online Help)

I end up with an error in the set objSch line which I assume is the way
the strF1 string has been set, is there anything there that ive messed
up???

secondly , I can see this will work fine for counting the number of
events that meet the search but where I have events running multiple
days will it not just report this as 1 event not duration??

Once again your help is appreciated

Cheers

Ian

 

[Ken Slovak - [MVP - Outlook]]

If you have spaces in your search scope you need to enclose the string in
single quotes:

Const strS1 As String = "'IJM Travel Calendar'"

The same would apply for the filter string.