如何在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>zhang.feng</C:fileas>
<C:email>zhang@163.net</C:email>
<C:title>super XML</C:title>
<C:department>Deve</C:department>
</D:prop>
为了学习XML的使用方法，现举个例子来说明，下面的例子阐明了如何针对直接的Exchange URL构造HTTP/WebDAV PROPFIND⑴方法请求的内容：
<html>
<head>
<title>test<title>
<script language=vbscript>
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>
<p><input type="text" width=100 name="txtURL"></p>
<p><input type="button" value="Go" name="cmdGo"></p>
<div id=responsehere>
</div>
</body>
</html>
⑴在Web Storage System中访问属性，使用PROPFIND方法
