WORKAROUND
Microsoft provides programming examples for illustration only, without warranty
either expressed or implied, including, but not limited to, the implied
warranties of merchantability and/or fitness for a particular purpose. This
article assumes that you are familiar with the programming language being
demonstrated and the tools used to create and debug procedures. Microsoft
support professionals can help explain the functionality of a particular
procedure, but they will not modify these examples to provide added
functionality or construct procedures to meet your specific needs. If you have
limited programming experience, you may want to contact a Microsoft Certified
Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more
information about Microsoft Certified Partners, see the following Microsoft Web
site:
For additional information about the support options available
from Microsoft, visit the following Microsoft Web site:
Important Note This method of creating a new search folder is not a supported
method and is at your own risk.
To work around this behavior, you must
create a macro solution if you want to create a new search folder in a folder
other than an e-mail folder. For example, to create a new search folder for the
Calendar folder, create a Microsoft Visual Basic for Applications macro similar
to the following sample macro:
Sub CreateNewSearchFolder()
Dim objSch As Search
'Create a folder that shows all recurring calendar items
Dim strF As String
strF = "http://schemas.microsoft.com/mapi/id/{00062002-0000-0000-C000-000000000046}/8223000b=1"
Dim strS As String
strS = "Calendar"
Dim strTag As String
strTag = "RecurSearch"
Set objSch = Application.AdvancedSearch(Scope:=strS, Filter:=strF, _
SearchSubFolders:=True, Tag:=strTag)
If objSch Is Nothing Then
MsgBox "Sorry, the search folder could not be created."
End If
objSch.Save ("MyCal") 'Change MyCal to the search folder you want to create
End Sub