Dim oCon
Err.Clear
Set oCon = Server.CreateObject("ADODB.Connection")

If Err.Number = 0 Then

'//
'// Open an ADODB.Connection to the folder URL
'//
oCon.Provider = "ExOLEDB.DataSource"
Err.Clear
oCon.Open strFolderURL

If Err.Number = 0 Then

'//
'// Create CDO.Message object
'//
Dim oMsg
Err.Clear
Response.Write "<br> Open Success =" & strMsgURL & "<br>"
Set oMsg = Server.CreateObject("CDO.Message")

On Aug 14, 5:57 pm, ashish <anpate... [at] gmail.com> wrote:
> Dim oCon
> Err.Clear
> Set oCon = Server.CreateObject("ADODB.Connection")
>
> If Err.Number = 0 Then
>
> '//
> '// Open an ADODB.Connection to the folder URL
> '//
> oCon.Provider = "ExOLEDB.DataSource"
> Err.Clear
> oCon.Open strFolderURL
>
> If Err.Number = 0 Then
>
> '//
> '// Create CDO.Message object
> '//
> Dim oMsg
> Err.Clear
> Response.Write "<br> Open Success =" & strMsgURL & "<br>"
> Set oMsg = Server.CreateObject("CDO.Message")

Addition to above asp code,

I got 0x80040E19 error from Server.CreateObject("CDO.Message"). It
works for other exchange site, but have one site where it returns this
error

FYI, The system is Exchange 2003 SP2 with Windows 2003 SP2.

Is there any permission that i need to aware of?

I appreciate your response.