WebDav to access Exchange

asn1981

Active member
Joined
Mar 15, 2005
Messages
38
Programming Experience
Beginner
hi
i have exchange set up on a server with all users of outlook having their inboxes in a edb exchange database file.
what I need to do is for a specified user be able to copy all attachments from unread emails for that user to a particular local directory using WebDav.

I have experimented with the code below, however, with the example below u are specifying a absolute path of the users inbox but in my case all users inboxes are apart of the exchange edb database.

can any1 shed some light on this or refer me elsewhere, thanks in advance (eg code follows below)


Dim str As String
Dim ConnectingURL As String = "http://UKUQE001/e$/exchangesrvr/mdbdata/privEmail.edb"
Dim username As String = "nanraa"
Dim pwd As String = "blank4now"

Dim oXmlHttp As New MSXML2.ServerXMLHTTP40
Dim xmlDOMParams As New System.Xml.XmlDataDocument
Dim xmlDOMParamsAttachement As New MSXML2.DOMDocument40
Dim xmlNdLstDonation, xmlNdLstDonation1, xmlNdListHasAttach As XmlNodeList
Dim PropstatNodes As System.Xml.XmlNodeList
Dim HrefNodes As System.Xml.XmlNodeList
Dim StatusNode As System.Xml.XmlNode
Dim PropNode As System.Xml.XmlNode
With oXmlHttp
.open("PROPFIND", ConnectingURL, False, username, pwd)
.setRequestHeader("Depth", "1")
.setRequestHeader("Content-type", "xml")
.send()
str = oXmlHttp.responseText
''Load the read mails into XML document'''
xmlDOMParams.LoadXml(str)
'''Get the list of text descriptions of all the mails'''
xmlNdLstDonation = xmlDOMParams.GetElementsByTagName("e:textdescription")
'''Get the List of Subjects of all the mails'''
'xmlNdLstDonation1 = xmlDOMParams.GetElementsByTagName("d:subject")
xmlNdLstDonation1 = xmlDOMParams.GetElementsByTagName("a:href")

End With
 
Back
Top