CDONTS worked, now it doesn't! 1

streborr · Feb 22, 2002

When I first ran this code it worked perfectly, now it doesn't work at all and I haven't changed anything.
I don't received any error messages, I just don't get the mail.
After a user logs in I want to receive an email telling me who logged in, when and what group they're in.

Am I missing something?

dim sMailBody
dim objMail
set objMail = Server.CreateObject("CDONTS.NewMail&quot

objMail.From = "server"
objMail.To = "me@here.com"
objMail.bodyformat = cdoBodyFormatHTML
objMail.MailFormat = cdoMailFormatMIME
objMail.subject = "Database has been Accessed"
sMailBody = sMailBody & "<HTML><HEAD><TITLE>Access Log</TITLE></HEAD>"
sMailBody = sMailBody & "<BODY><TABLE width=""400"" border=""1"" cellpadding=""2"" cellspacing=""0"">"
sMailBody = sMailBody & "<TR><TH>Name</TH><TH>Date</TH><TH>Group</TH></TR>"
sMailBody = sMailBody & "<tr><td>" & rsADO("user_name&quot

& "</td>"
sMailBody = sMailBody & "<td>" & date() & "</td>"
sMailBody = sMailBody & "<td>" & rsADO("user_group&quot

& "</td>"
sMailBody = sMailBody & "</tr></table></body></html>"
objMail.Body = sMailBody
objMail.Send
Set objMail = nothing

Thanks for ANY help!
Rick

JuanitaC · Feb 22, 2002

I had this problem once... the sys admin had seen activity on the SMTP service, thought it was a security breach and shut off the service without telling me.

Could any settings have changed on your server?

streborr · Feb 22, 2002

JuanitaC,
Nothing on the server has changed.

Thanks,
Rick

JuanitaC · Feb 22, 2002

Hmmm... now I am just shooting in the dark...

Are you sure that there are no errors? Try putting an error catch after your send, and after your object creator...

If Err<>0 then
Response.Write("Error is " & Err.description & "<br>&quot

Response.end
End if

And at the top of your page make sure you have
On Error Resume Next

Phonez · Feb 25, 2002

Have you treid looking in the mailroot folder in IIS to see what the problem is because all emails go there first before being sent

Guest_imported · Feb 25, 2002

This happened to me and I resolved the issue by assigning objMail.to to a variable rather than a string.
In other words declare that the variable mail_address = "me@mycom.com" and then set objMail = mail_address.
Hope this helps.

streborr · Feb 25, 2002

noelicus:
No luck with setting a variable

JuanitaC:
Didn't get any errors

Phonez:
I don't have access to the mailroot. It's running on a server at a host service.

Your responses are geatly appreciated,
keep 'em coming
Thanks,
Rick

link9 · Feb 25, 2002

Rick, I'd call your ISP and get them to tell you what's wrong with it. If you've changed nothing, then they have, and can probably tell you exactly what the problem is.

My suspicion is that they've implemented some new security measure to avoid spammers using their SMTP server, and neglected to tell any of their customers about it.

Just a guess, but like I said... if you've changed nothing, then they have.

paul

streborr · Feb 26, 2002

I believe you may be right, link9.

I'll be giving them a call.

Thanks everyone for your input,
Rick

gsc1ugs · Feb 26, 2002

Is this syntax correct

objCDO.Send
If Err<>0 then
Response.Write("Error is " & Err.description & "<br>&quot

Response.end
End if Regards gsc1ugs
"Cant see wood for tree's...!"

JuanitaC · Feb 26, 2002

gsc1ugs, that error message will work IF you have On Error Resume Next on your page somewhere above where you want to check for an error.

gsc1ugs · Feb 26, 2002

Can u give example Regards gsc1ugs
"Cant see wood for tree's...!"

JuanitaC · Feb 26, 2002

<%
On Error Resume Next

'call stored procedure
Set rs = Server.createObject("ADODB.Recordset&quot

Set cmd = Server.createObject("ADODB.Command&quot

cmd.ActiveConnection = conn
cmd.CommandType="adCMDStoredProc"
cmd.CommandText="sp_GetStuff"

'execute stored procedure
set rs=cmd.Execute()

'check for errors
if Err<>0 then
Response.write("Error is " & Err.description & "<br>"
Response.end
end if
%>

gsc1ugs · Feb 26, 2002

Is this relevant for CDONTS aswell Regards gsc1ugs
"Cant see wood for tree's...!"

JuanitaC · Feb 26, 2002

You can use the If Err<>0 then... after any statement that might cause a runtime error. You can put it after object creation statements to make sure that your objects are created properly, etc. So, in the CDONTS example from above....

<%
On Error Resume Next

dim sMailBody
dim objMail
set objMail = Server.CreateObject("CDONTS.NewMail&quot

'make sure Mail object created
if Err<>0 then
Response.write("Error is " & Err.description & "<br>&quot

Response.end
end if

'set properties/methods of Mail object
objMail.From = "server"
objMail.To = "me@here.com"
objMail.bodyformat = cdoBodyFormatHTML
objMail.MailFormat = cdoMailFormatMIME
objMail.subject = "Database has been Accessed"
sMailBody = sMailBody & "here"
objMail.Body = sMailBody
objMail.Send

'make sure that Send works properly
if Err<>0 then
Response.Write("Error is " & Err.description & "<br>&quot

Response.end
end if
Set objMail = nothing
%>

gsc1ugs · Feb 26, 2002

My final question... will this work with Microsoft Exchange server.... i cant start SMTP cause exchange is being used instead for web access.. will it still work the cdonts cause i aint getting any errors Regards gsc1ugs
"Cant see wood for tree's...!"

JuanitaC · Feb 26, 2002

Sorry, I don't know anything about Exchange server.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

CDONTS worked, now it doesn't! 1

streborr

IS-IT--Management

JuanitaC

Programmer

streborr

IS-IT--Management

JuanitaC

Programmer

Phonez

Technical User

Guest_imported

New member

streborr

IS-IT--Management

link9

Programmer

streborr

IS-IT--Management

gsc1ugs

Programmer

JuanitaC

Programmer

gsc1ugs

Programmer

JuanitaC

Programmer

gsc1ugs

Programmer

JuanitaC

Programmer

gsc1ugs

Programmer

JuanitaC

Programmer

Similar threads

Part and Inventory Search

Sponsor