Article ID: 183897
Article Last Modified on 2/26/2004
Sub Bug()
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set MyRecip = olns.CreateRecipient("John Smith")
MyRecip.Resolve
Set MyFolder = olns.GetSharedDefaultFolder(MyRecip, olFolderCalendar)
Set MyItems = MyFolder.Items
MyItems.Sort "[Start]"
MyItems.IncludeRecurrences = True
MyClause = "[Subject] = " & Chr(34) & "Christmas Day" & Chr(34)
Set MyResItems = MyItems.Restrict(MyClause)
MsgBox MyResItems.Count
For Each MyItem In MyResItems
MsgBox MyItem.Subject
Next
End Sub
Additional query words: OutSol OutSol98
Keywords: kbbug kbprogramming kbpending KB183897