Muchas gracias.
Código HTML:
<% 'Get the namespace. ' using MSXM 'Create the object. ' xmlHttp_ = new XMLHTTP(); set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") %> <?xml version="1.0"?> <D:propfind xmlns:D="DAV:" xmlns:h=" http://schemas.microsoft.com/hotmail/ " xmlns:hm="urn:schemas:httpmail:"> <D:prop> <h:adbar/> <hm:contacts/> <hm:inbox/> <hm:outbox/> <hm:sendmsg/> <hm:sentitems/> <hm:deleteditems/> <hm:drafts/> <hm:msgfolderroot/> <h:maxpoll/> <h:sig/> </D:prop> </D:propfind> <% 'Specify the server URL. Dim serverUrl Dim folderQuery serverUrl = "http://services.msn.com/svcs/hotmail/httpmail.asp" 'Build the query. folderQuery = "" folderQuery = folderQuery & "<?xml version='1.0'?><D:propfind xmlns:D='DAV:' " folderQuery = folderQuery & "xmlns:h='http://schemas.microsoft.com/hotmail/' " folderQuery = folderQuery & "xmlns:hm='urn:schemas:httpmail:'><D:prop><h:adbar/>" folderQuery = folderQuery & "<hm:contacts/><hm:inbox/><hm:outbox/><hm:sendmsg/>" folderQuery = folderQuery & "<hm:sentitems/><hm:deleteditems/><hm:drafts/>" folderQuery = folderQuery & "<hm:msgfolderroot/><h:maxpoll/><h:sig/></D:prop></D:propfind>" 'Open a connection to the Hotmail server. xmlHttp.open "PROPFIND", serverUrl, false, username, password 'Send the request. xmlHttp.setRequestHeader "PROPFIND", folderQuery xmlHttp.send 'Get the response. Response.write Cstr(xmlHttp.ResponseText) %>