Automatic Email using CDO

[dave547]

I had a survey on the web that had auto-emailing feature that used the CDO library from an ASP page. Then all of a sudden the code stopped working and gave a page 500 error. I do not know the history of changes to the server since I do not maitain the server, but if I know what the problem is I can have it fixed.

dim mail, mailcon, fld, strHTML
set mail = CreateObject("CDO.Message&quot
set mailcon = CreateObject("CDO.Configuration&quot

mailcon.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
mailcon.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "mymailserver"
mailcon.Fields.Item("

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")

= 10
mailcon.Fields.update

set mail.Configuration = mailcon
mail.to = "myName@domain.com"
mail.from = "myName@domain.com"
mail.subject = "Evaluation Questionnaire"
mail.HTMLBody = strHTML
mail.Send

If you comment out mail.send the page works but no email is sent. Otherwise, all I get is a 500 page error.

 

[Microbe]

Try it out using Netscape, much better error info that IE.

Also, mail the hostmaster, ask them if they have made any changes. They may have disabled CDONTS after a spamming incident or something.

I know I have crashed a server after an email thingy looped to infinity Oops

Steve Davis
hey.you@hahaha.com.au

http://www.hahaha.com.au

Me? I can't even spell ASP!