Then again, if I look at SPPS categories, they seem to be proper search
folders. (Never mind the fact that SPPS uses undocumented INVOKE command to
create categories).
My questions are:
a) does anyone know how to create search folders on sharepoint store, or at
least confirm that such action is totally impossible;
b) is it possible to mark public folder of spps store as not reserved for
MAPI clients, so that it drops the restriction for creating search folders.
c) Is there a third solution? Did something change with Exchange Service
pack 1?
Thanks,
Damir
To run the code successfully you have to replace everything in <angle
brackets> with appropriate strings.
Good luck with it and let me know how it turns out.
Philip
Sub CreateSearchFolder()
' By Philip Semanchuk
' Meridium Sverige AB
' Creates a search folder that enumerates a user's checked-out
documents. The folder must
' not exist beforehand. The folder is created under the Portal Content
folder. That's the
' only place I can get it to work.
' This code was shamelessly stolen from:
'
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/_exch2k_creating_search_folders.asp
Dim objReq As XMLHTTPRequest
Dim s As String
Dim sSQL As String
Dim sPath As String
Dim sUsername As String
Dim sPassword As String
' Fully qualified path seems important. Using just "/Documents" fails.
sPath = "http://<servername>/<workspacename>/Documents"
sUsername = "<username>"
sPassword = "<password>"
sSQL = "SELECT " & _
" ""DAV:href"", " & _
" ""DAV:displayname"", " & _
" ""DAV:getlastmodified"", " & _
" ""urn:schemas-microsoft-com:office:office#Description"", " & _
" ""urn:schemas-microsoft-com:publishing:ShortcutTarget"", " & _
" ""urn:schemas-microsoft-com:publishing:checkedoutby"", " & _
" ""urn:schemas-microsoft-com:office:office#Title"", " & _
" ""urn:schemas-microsoft-com:office:office#Author"" " & _
" FROM SCOPE('DEEP traversal of """ & sPath & """')" & _
" WHERE ""urn:schemas-microsoft-com:publishing:checkedoutby"" =
'<DOMAINNAME>\" & sUsername & "'"
Set objReq = New XMLHTTPRequest
Call objReq.Open("MKCOL", "http://<servername>/<workspacename>/Portal
Content/" & sUsername, False, sUsername, sPassword)
s = "<?xml version='1.0'?>"
s = s + "<d:propertyupdate xmlns:d='DAV:'>"
s = s + "<d:set><d:prop><d:searchrequest><d:sql>" + sSQL + "</d:sql>"
s = s + "</d:searchrequest></d:prop></d:set></d:propertyupdate>"
Call objReq.setRequestHeader("Content-type:", "text/xml")
Call objReq.send(s)
Call MsgBox(objReq.statusText)
Set objReq = Nothing
End Sub
On Tue, 31 Jul 2001 10:49:40 +0200, "Damir Simunic" <n...@email.pls>
wrote:
It works indeed. Had the code in vbscript to create all folders and stuff
(I'm actually creating a script so that I can re-install my creation on
other spps machines), but was focused on trying to make it work in Public
folder. Then I tried it on another SPPS machine (other domain), and got 403
on Portal content folder. Finally made it work on the third machine
(standalone server).
I'm in the dark why and how it works. Too bad, it is such a nice concept...
If I find out more, will let you know.
Thanks,
d.
"Philip Semanchuk" <philip.s...@meridium.se> wrote in message
news:3b669666...@msnews.microsoft.com...
d.
--
Gary A. Bushey
bus...@mindspring.com
"Damir Simunic" <n...@email.pls> wrote in message
news:udVrB3ZGBHA.1324@tkmsftngp07...
On Tue, 31 Jul 2001 17:36:50 +0200, "Damir Simunic" <n...@email.pls>
wrote:
>You'd be interested in hearing that you can also create search folders under
I'm still in the dark about the whole issue. Apparently you can create
search folders on some of the SPPS folders (I know that System is one of
those, thanks to Gary's tip), but not outside of the workspace. Give me a
few days to research a bit more and I'll post here what I found out.
do.
"Philip Semanchuk" <philip.s...@meridium.se> wrote in message
news:3b67f281...@msnews.microsoft.com...