Access Denied error when using CDOSys to send messages in ASP

what is on line 91 or send.asp?

Here is a snippet

dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = strFrom
objMail.To = strTo
objMail.Subject = strSubject
objMail.TextBody = strBody
objMail.Send
set objMail = nothing

Line 91 is the objMail.Send line

Thanks

Here is a snippet

dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = strFrom
objMail.To = strTo
objMail.Subject = strSubject
objMail.TextBody = strBody
objMail.Send
set objMail = nothing

Line 91 is the objMail.Send line

Thanks

Well, there's an article that seems to help use CDO, but only possibly will help with the permissions errors:
http://www.aspfaq.com/show.asp?id=2026

Also, just to verify, the IUSER account needs rights to send mail using Exchange and CDO.

Also, make sure all the service packs are installed to the exchange server.

Another thing is that if your exchange server is a domain controller, it might need a little more administration to work.
I've read somewhere that you have to change is the "Log On Locally" policy under "Domain
Controller Security Policy". There you must add "Domain Users".

And from that link I offered above, try using the set objMail.configuration = ... line.
That might be necessary.

Cheers.

Hi ashraga,

You may need to establish a cdo.configururation

Try this, if no smtp server is passed eg "" then will try to send using port, you can either use your smtp server or your isp's smtp server, they should support mail forwarding for you. eg... smtp.yahoo.com

Alan Warren


<%
If SendEmail("smtp.yourserver.com") Then
  response.write("mail sent")
End If
%>

<%
Private Function SendEmail(SMTPServer)

  Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
  Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
  Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" 
'hmm!
Const cdoSMTPPickup = "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"

  Const cdoAnonymous = 0
  Const cdoSendUsingPickup = 1
  Const cdoSendUsingPort = 2
     
  Dim oMessage
  Dim oConfiguration

  SendEmail = False
     
  Set oConfiguration = Server.CreateObject("CDO.Configuration")
  With oConfiguration.Fields
    .Item(cdoSMTPAuthenticate) = cdoAnonymous
    .Item(cdoSMTPServer) = SMTPServer
    If Trim(SMTPServer) = "" Then
      .Item(cdoSendUsingMethod) = cdoSendUsingPickup
'hmm!
.Item(cdoSMTPPickup) = "C:\inetpub\mailroot\pickup"
    Else
      .Item(cdoSendUsingMethod) = cdoSendUsingPort
    End If
    .Update
  End With

  Set oMessage = Server.CreateObject("CDO.Message")

  With oMessage
    Set .Configuration = oConfiguration
        .From     = "You@Your.com"
        .To       = "Me@My.com"
        .Subject  = "The subject"
        .TextBody = "The body"
        .Send
  End With

  Set oMessage = Nothing
  Set oConfiguration = Nothing

  If Err.Number = 0 Then
    SendEmail = True
  End If

End Function    
%>

I fixed the problem myself. You need to change the Application Pool in IIS for this web site to use the Exchange Application Pool instead of the default IIS pool...

thanks for everyone's help!