Problem with WEBDAV

[ngrTerry]

I have tried the code supplied by microsoft help page as below and all
I get is
440
Login Timeout
I have checked the address with the administrator and he says this is
right.
I feel as if I am close, but obviously not close enough....

Dim oXMLHttp As MSXML2.XMLHTTP30 = New MSXML2.XMLHTTP30()
Dim sUrl As String
Dim sQuery As String

' TODO: Replace with your folder URL.
sUrl = "https://SBS2003/Exchange/Terry/Inbox"

' Open the folder.
oXMLHttp.open("SEARCH", sUrl, False, "ESS\Terry",
"MyPassword")

' Set up the query.
sQuery = "<?xml version='1.0'?>" & _
"<g:searchrequest xmlns:g='DAV:'>" & _
"<g:sql>SELECT ""DAV:displayname"" " & _
"FROM SCOPE('SHALLOW TRAVERSAL OF """ & sUrl & """')"
sQuery = sQuery & " WHERE ""DAV:isfolder"" = true" & _
"</g:sql>" & _
"</g:searchrequest>"

' Set up request headers.
oXMLHttp.setRequestHeader("Content-Type", "text/xml")
oXMLHttp.setRequestHeader("Translate", "f")
oXMLHttp.setRequestHeader("Depth", "0")
oXMLHttp.setRequestHeader("Content-Length", "" &
sQuery.Length)

' Send the query.
oXMLHttp.send(sQuery)

s = oXMLHttp.status & vbCrLf
s &= oXMLHttp.statusText & vbCrLf
s &= oXMLHttp.responseText

' Cleanup.
oXMLHttp = Nothing
Me.TextBox1.Text = s

Thanks in advance for any feedback
Terry

[Henning Krause [MVP - Exchange]]

Hello,

see http://www.infinitec.de/articles/exc...avwithfba.aspx

Best regards,
Henning Krause

"ngrTerry" <ng*@tdrd.karoo.co.ukwrote in message
news:11**********************@g4g2000hsf.googlegro ups.com...

>I have tried the code supplied by microsoft help page as below and all
I get is
440
Login Timeout
I have checked the address with the administrator and he says this is
right.
I feel as if I am close, but obviously not close enough....

Dim oXMLHttp As MSXML2.XMLHTTP30 = New MSXML2.XMLHTTP30()
Dim sUrl As String
Dim sQuery As String

' TODO: Replace with your folder URL.
sUrl = "https://SBS2003/Exchange/Terry/Inbox"

' Open the folder.
oXMLHttp.open("SEARCH", sUrl, False, "ESS\Terry",
"MyPassword")

' Set up the query.
sQuery = "<?xml version='1.0'?>" & _
"<g:searchrequest xmlns:g='DAV:'>" & _
"<g:sql>SELECT ""DAV:displayname"" " & _
"FROM SCOPE('SHALLOW TRAVERSAL OF """ & sUrl & """')"
sQuery = sQuery & " WHERE ""DAV:isfolder"" = true" & _
"</g:sql>" & _
"</g:searchrequest>"

' Set up request headers.
oXMLHttp.setRequestHeader("Content-Type", "text/xml")
oXMLHttp.setRequestHeader("Translate", "f")
oXMLHttp.setRequestHeader("Depth", "0")
oXMLHttp.setRequestHeader("Content-Length", "" &
sQuery.Length)

' Send the query.
oXMLHttp.send(sQuery)

s = oXMLHttp.status & vbCrLf
s &= oXMLHttp.statusText & vbCrLf
s &= oXMLHttp.responseText

' Cleanup.
oXMLHttp = Nothing
Me.TextBox1.Text = s

Thanks in advance for any feedback
Terry