Exchange with ADO

[Interdev]

I need to developer a program to receive email automatic and the attachment file, I tried the follow code:

strURLFldr = "

http://localhost/public/publicacao/"

Conn.Provider = "ExOLEDB.DataSource"

Conn.Open strURLFldr

strSQL = "SELECT ""urn:schemas:httpmail:normalizedsubject"",""urn:s
chemas:httpmail:textdescription"",""pubdocublicar"",""pubd
oc:dtstart"",""pubdoc:dtend"",""pubdoc:assunto"",""pubdoc:ca
pitulo"",""pubdoc:topico"",""pubdoc:instrucao"",""pubdoc:arq
uivo"" FROM ""

http://localhost/public/publicacao/""

" & _
" WHERE ""pubdoc:documento"" = '" & strDocument & "'"

With Rs
.CursorLocation = adUseClient
.CursorType = 3
Set .ActiveConnection = Conn
.Open strSQL, Conn
Set .ActiveConnection = Nothing
End With

Set GetDocumentProperties = Rs

Conn.Close
Set Conn = Nothing


but a error occurs, the class ExOLEDB.DataSource is not recognize, where can I find this OCX or DLL to make a reference for it, I tried the more common OCX(MSADODC,MSCOMM32,MSRDC20,MSCOMCTL,MSCOMCT332), but the error occurs again.

I would like to receive a another example if possible,

Thanks a lot and excuse for my English.

Marcelo Augusto de Carvalho
From Ford Brasil