![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
|
|||
|
|||
![]() 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 |
#2
|
|||
|
|||
![]()
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. -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003 Reminder Manager, Extended Reminders, Attachment Options http://www.slovaktech.com/products.htm wrote in message ps.com... 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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
OE not counting new messages correctly with IMAP accounts | [email protected] | Outlook Express | 7 | August 7th 06 11:50 AM |
Counting Attachments in Messages | Chris Rhodes | Outlook and VBA | 5 | June 21st 06 04:57 PM |
outlook is miss counting contacts, why | Rosalind | Outlook - Calandaring | 0 | April 13th 06 07:12 PM |
Counting meetings monthly/annually | yiftach | Outlook - Calandaring | 2 | February 25th 06 02:04 PM |
Outlook should have a function for counting the number of days | Bruce McGinn | Outlook - Calandaring | 0 | January 30th 06 01:01 PM |