We would like to create search folders within the mailboxes of all
users. First we tried to do it locally. This code works fine on the
local primary mailbox:

Function SuchordnerAnlegen()
Dim SearchFolder As Outlook.MAPIFolder
Dim objSch As Search
Dim strF As String
Dim strS As String
Dim strTag As String
Dim myOlApp As Outlook.Application
Set myOlApp = CreateObject("Outlook.Application")
strF = "http://schemas.microsoft.com/mapi/id/{00062002-0000-0000-C000-000000000046}/82360040
<= '30.6.2005'"
strS = "Calendar"
strTag = "RecurSearch"
Set objSch = myOlApp.AdvancedSearch(Scope:=strS, Filter:=strF,
SearchSubFolders:=True, Tag:=strTag)
Set SearchFolder = objSch.Save("MyCal") 'Change MyCal to the search
folder you want to create
End Function

Now we only need to know two things:
a) How can we create a search folder in another users mailbox programmatically?
b) How can we delete an existing search folder programmatically?

Some example would be sufficient for us.

Thanks!
Chris