Cdonts mail sending Error

[Jason1983]

Hello sir,
When iam trying to send emails to my user accounts which are gmail id's using my application it is giving me this error.
Here is the error...
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
Not sending CDONTS created e-mails.

Here is the related code ....

'********************************************************
'Creating CDONTS mail object and sending mail to user
'********************************************************
 
Sub SendEmail(Sender, Receiver, Subject, Message)
 
        'response.Write(Sender)
        'response.Write(Receiver)
        'response.Write(Subject)
        'response.Write(Message)
        'response.End()
        'based on hosting server we need to enable mailing component
 
        Set Cdo = Server.CreateObject("CDONTS.NewMail")
        Cdo.From = Sender
        Cdo.To = Receiver
        Cdo.Subject = Subject
        Cdo.Body = Message 'Content
        Cdo.BodyFormat = 0        '--->HTML format
        Cdo.MailFormat = 0        '--->HTML format
        '''Response.Write Message & "<br>" 'Displays the content to be sent to receiver
 
        if    Session("UserType")="Participant" then 
            Cdo.Value("Reply-To") = Session("PEmail")
        else
            Cdo.Value("Reply-To") = Sender
        end if
        'response.Write(Message)
        'response.End()
        Cdo.Send 'Sends the mail
 
        'Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        'Mailer.FromName = "Assessment"
        'Mailer.FromAddress = "[e-mail]"
        'Mailer.RemoteHost = "smtp.gmail.com"
 
        ''Here is where you can change who the email is sent to
 
        'Mailer.AddRecipient strFirstname, strToEmail
 
        'Mailer.ContentType = "text/html"
        'Mailer.Subject = "Assessment:New Account Invitation"
        'Mailer.BodyText = strMailbody
 
        'if Mailer.SendMail then
        'response.Write(strMailbody)
        'response.End()
 
        'Call SendEmail("[e-mail]", strToEmail, "Assessment:New Account Invitation", strMailbody)
 
End Sub

Please help....as mails are not going to the clients .....some online forums suggest replacing cdo with some thing called cdomessage.....iam new to this asp and do i need to change them or is there any other way....if i need to change and make it work what changes do i make and where.....this code is in common.asp ...



Thanks...
Jason.

[DrBunchman]

Hi Jason,

CDONTS is a deprecated object which means that it isn't supported anymore. Take a look at using CDOSYS - there are some excellent examples at w3schools which should help you.

I'd suggest you try one of their example scripts. If you have any problems implementing them then let me know.

Dr B

[Jason1983]

Hi Jason,

CDONTS is a deprecated object which means that it isn't supported anymore. Take a look at using CDOSYS - there are some excellent examples at w3schools which should help you.

I'd suggest you try one of their example scripts. If you have any problems implementing them then let me know.

Dr B

Sir as per ur direction changed the code as below......

'********************************************************
'Creating CDOSYS mail object and sending mail to user
'********************************************************
 
Sub SendEmail(Sender, Receiver, Subject, Message)
 
        'response.Write(Sender)
        'response.Write(Receiver)
        'response.Write(Subject)
        'response.Write(Message)
        'response.End()
        'based on hosting server we need to enable mailing component
 
        Set Cdo = Server.CreateObject("CDO.NewMail")
        Cdo.From = Sender
        Cdo.To = Receiver
        Cdo.Subject = Subject
        Cdo.Body = Message 'Content
        Cdo.BodyFormat = 0        '--->HTML format
        Cdo.MailFormat = 0        '--->HTML format
        Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
Cdo.Configuration.Fields.Update
        '''Response.Write Message & "<br>" 'Displays the content to be sent to receiver
 
        if    Session("UserType")="Participant" then 
            Cdo.Value("Reply-To") = Session("PEmail")
        else
            Cdo.Value("Reply-To") = Sender
        end if
        'response.Write(Message)
        'response.End()
        Cdo.Send 'Sends the mail
 
        'Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        'Mailer.FromName = "360 Assessment"
        'Mailer.FromAddress = "[e-mail]"
        'Mailer.RemoteHost = "localhost"
 
        ''Here is where you can change who the email is sent to
 
        'Mailer.AddRecipient strFirstname, strToEmail
 
        'Mailer.ContentType = "text/html"
        'Mailer.Subject = "360 Assessment:New Account Invitation"
        'Mailer.BodyText = strMailbody
 
        'if Mailer.SendMail then
        'response.Write(strMailbody)
        'response.End()
 
        'Call SendEmail("[e-mail]", strToEmail, "360 Assessment:New Account Invitation", strMailbody)
 
End Sub
 

but still it is giving this error....

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/Assessmentweb/Common.asp, line 57


please help....

Thanks...
Jason...

[DrBunchman]

Hi Jason,

I think you need to change the line where you create your mail object to

Set Cdo = CreateObject("CDO.Message")

Does that help?

Also, please don't forget to use the # button in the posting window to surround your code with code tags - they make your posts much easier to read and save me and the other moderators time because we don't have to add them for you!!

Thanks,

Dr B

[Jason1983]

Hi Jason,

I think you need to change the line where you create your mail object to

Set Cdo = CreateObject("CDO.Message")

Does that help?

Also, please don't forget to use the # button in the posting window to surround your code with code tags - they make your posts much easier to read and save me and the other moderators time because we don't have to add them for you!!

Thanks,

Dr B

Sir Tried changing that line as u told no change ...same error is being displayed ...no change in error message also....

Thanks..
Jason.

[Jason1983]

can some one help me with this error please......


Thanks...
Jason.

[DrBunchman]

Jason,

I've lifted the code below directly from the w3schools page that I linked to above.

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[e-mail]"
myMail.To="[e-mail]"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

If you run this script and you still get the error then perhaps you don't have the CDOSYS.dll installed on your deployment machine? What version of windows/windows server is running on that machine?

Dr B

[Jason1983]

Jason,

I've lifted the code below directly from the w3schools page that I linked to above.

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[e-mail]"
myMail.To="[e-mail]"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

If you run this script and you still get the error then perhaps you don't have the CDOSYS.dll installed on your deployment machine? What version of windows/windows server is running on that machine?

Dr B

hello sir

i ran this but did not get any error ...i ran a script that check for CDOSYS and it says that it is installed....so i also put this script that u gave now and put response.write and when i open the page no error....i get the message...

so what do u say do i need to change any thing on local host to try it ....i specified gmail ids ....did not specify any ports particularly.....


so please let me know ....

thanks..
jason.