Quick refresher: I'm being sent a number of files in e-mail which is directed
to a public folder. I need to extract the attachments once a day.

I have made some progress. I have figured out how to open the folder using
ODBC and made queries against the message list, picking out the correct
messages; ones received today from particular addresses. This, as expected,
returns a single message "row".

I am now trying to retrieve the attachment. I am going to try to use WebDAV
to get it, because that seems to be the only one that works on any of these
machines. Here is what I do...

rstEmails.Open "SELECT * FROM theTable WHERE [From] LIKE
'%@thesender.com' AND [Has Attachments]=True AND [Received]>=#" & date & "#
AND [Received]<#" & DateAdd("d", 1, date) & "#", conn, adOpenStatic,
adLockReadOnly

' use the subject to create an URI
Subject = Trim(rstEmails!Subject)
Subject = Replace(Subject, " ", "%20")
Uri = "http://x4.ourdomain.com/public/theFolder/" & Subject & ".eml"

Set req = CreateObject("microsoft.xmlhttp")
req.Open "X-MS-ENUMATTS", Uri, False

req.send
Set ret = req.responseXML

fname =
ret.getElementsByTagName("e:attachmentfilename")(0).FirstChild.Text

When I try this code against a test file that I sent to the folder,
everything works fine and I get the file back. However, when I try this
against a real message, I get nothing in
ret.getElementsByTagName("e:attachmentfilename"), and looking at the ret
object itself, I see that the childNodes is zero length, which I assume is
not correct. Yes, the test file and real file both have a file attachment --
which is why the WHERE works.

The only difference I can see is that the "Message.Class" for the message I
sent is "IPM.Note", whereas the real one came in as "IPM.Post". Would this
make a difference?

Maury

Archived from group: microsoft>public>exchange>development