如何在Exchange2000中使用XML hbzxf（原作）

如何在Exchange2000中使用XML

XML是在Exchange中存储数据格式的一种，一般应用在Exchange中的以下内容：

Web Storage System 中条目的某些属性和Exchange模式定义，还经常应用在WebDAV

请求中的返回信息、请求等。用户也使用Web Storage System存储XML文档、XSL文

档、HTML文档。

例如：Exchange2000中以XML格式存储联系人的属性信息如下：

<D:prop xmlns:D="DAV"
xmlns:C="urn:schemas:contacts">

<D:href>http://server/exchange/zhang/Contacts/zhang.eml<D:href>

<C:fileas>hbzxf</C:fileas>

<C:email>hbzxf@hotmail.com</C:email>

<C:title>super XML</C:title>

<C:department>Deve</C:department>

</D:prop>

为了学习XML的使用方法，现举个例子来说明，下面的例子阐明了如何针对直接的Exchange URL构造HTTP/WebDAV PROPFIND⑴方法请求的内容：

<html>

<head>

Dim xmlDoc

Sub cmdGo_OnClick()

Dim strURL,strPropReg

strURL = txtURL.value

strPropReg="<?xml vesion='1.0'?>"

strPropReg=strPropReg&"<d:propfind xmlns:d='DAV:'>"

strPropReg=strPropReg&"<d:prop>"

strPropReg=strPropReg&"<d:displayname>"

strPropReg=strPropReg&"<d:creationdate>"

strPropReg=strPropReg&"</d:prop>"

strPropReg=strPropReg&"</d:propfind>"

With CreateObject("microsoft.xmlhttp")

    .Open "PROPFIND",strURL,True

    .SetRequestHeader "Context-type:","text/xml"

    .SetRequestHeader "Depth","1,noroot"

    .Send(strPropReg)

    responsehere.innerText = .ResponseText

End With

End Sub

</script>

</head>

<body>

<h2>Get Contents of Folder Using XML/HTTP</h2>

<br>

<p>Enter a URL,something like http://server/public/documents/</p>

</div>

</body>

</html>

对于WebDAV来说还有很多的类似方法，对此感兴趣的朋友可以参考一下类似的文章或书籍，在此通过这种方式来表示表示。

注：⑴在Web Storage System中访问属性，使用PROPFIND方法

posted on 2004-06-07 10:22 张锋阅读(880) 评论(1) 编辑收藏举报