looking for a way to extract e-mails from Exchange Server 2003.
save attachment, iterate through e-mail body to create txt file.

considerations:
NOT for interactive user (e.g., OOM), i.e., without having to allow
premition to mailbox.
application Cannot reside directly on mail Server.
==========================================
code so far:
Dim sUri As String
sUri = "http://Exserver.com/exchange/user/inbox/"
Dim sSubject As String = "Finsettle ERD reports Ltd"
Dim sSender As String = "ERD Export Utility"
Dim myUri As System.Uri = New System.Uri(sUri)
Dim HttpWRequest As HttpWebRequest = WebRequest.Create(myUri)

Dim sQuery As String
sQuery = "" & _
"" & _
"SELECT ""DAV:displayname"", " & _
"""DAV:href"" " & _
"FROM SCOPE('SHALLOW TRAVERSAL OF """ & sUri & """')" & _
"WHERE ""urn:schemas:mailheader:subject"" = '" + sSubject + "' " & _
"AND ""urn:schemas:mailheader:fromname"" = '" + sSender + "' " & _
"AND ""urn:schemas:httpmail:read"" = '0' " & _
"" & _
""

Dim myCred As NetworkCredential = New
NetworkCredential("Domain\U.name", "P@ssword")
Dim MyCredentialCache As CredentialCache = New CredentialCache()
MyCredentialCache.Add(myUri, "Basic", myCred)
HttpWRequest.Credentials = MyCredentialCache

HttpWRequest.KeepAlive = False
HttpWRequest.Headers.Set("Pragma", "no-cache")

HttpWRequest.Headers.Set("Translate", "f")
HttpWRequest.Headers.Set("Depth", "0")
HttpWRequest.ContentType = "text/xml"
HttpWRequest.ContentLength = sQuery.Length

HttpWRequest.Timeout = 300000
' set the request method. But which method?
HttpWRequest.Method = "POST" '"SEARCH" "GET" "SAVE"
==============================================

thats what i have so long..
would very much appreciate an example, directions, reference...


thanks,
j.

Archived from group: microsoft>public>exchange2000>development