CDO.Message.1 error 80070005

[Pai]

Hello there,

I am trying to send a attachemnt using CDO

when I try to attach a file to the message, I get the error

CDO.Message.1 error 80070005

Access denied

It sends the email but I get a .dat file in the attachement and gives me eroor

If I send an email without attachment it works fine...

Do I need to do some settting to go about this

the code is as below

Dim mail_Subject
mail_Subject = Request.Form("TextSubject")
Dim mail_Body
mail_Body = Request.Form("TextBody")
Dim file_Attach
file_Attach = Request.Form("FileAttach")

Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")

Set objConfig = CreateObject("CDO.Configuration")
'Configuration:
Set Flds = objConfig.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "111.11.1.11"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Flds.Update

Set objCDO.Configuration = objConfig

objCDO.To = "sp**@immunetolerance.org"
objCDO.From = "an*******@immunetolerance.org"
objCDO.Subject = mail_Subject

objCDO.HTMLBody = mail_Body
objCDO.AddAttachment file_Attach ' erroe line
objCDO.Send()

set objConfig = nothing
set objCDO = nothing

Thanks in advance,
Srikanth

[Ray at]

http://www.aspfaq.com/5003

Ray at home

"Pai" <sp**@immunetolerance.org> wrote in message
news:53**************************@posting.google.c om...

Hello there,

I am trying to send a attachemnt using CDO

when I try to attach a file to the message, I get the error

CDO.Message.1 error 80070005

Access denied

It sends the email but I get a .dat file in the attachement and gives me eroor
If I send an email without attachment it works fine...

Do I need to do some settting to go about this

the code is as below

Dim mail_Subject
mail_Subject = Request.Form("TextSubject")
Dim mail_Body
mail_Body = Request.Form("TextBody")
Dim file_Attach
file_Attach = Request.Form("FileAttach")

Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")

Set objConfig = CreateObject("CDO.Configuration")
'Configuration:
Set Flds = objConfig.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "111.11.1.11" Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60

Flds.Update

Set objCDO.Configuration = objConfig

objCDO.To = "sp**@immunetolerance.org"
objCDO.From = "an*******@immunetolerance.org"
objCDO.Subject = mail_Subject

objCDO.HTMLBody = mail_Body
objCDO.AddAttachment file_Attach ' erroe line
objCDO.Send()

set objConfig = nothing
set objCDO = nothing

Thanks in advance,
Srikanth