Hello,
I have a Win2K server that I run a website on. I have an asp page that
sends an email to me when someone makes a request or provides feedback on
the website. It has worked fine until some point in the last month. I know
there were a bunch of "Critical Updates" that Microsoft forced on my machine
and forced the restart. Could that have anything to do with the reason the
email doesn't work anymore? I keep getting a "Page cannot be displayed"
error when I post to the asp page that sends the email. I also have another
third party ASP.net application that doesn't send email anymore, so that's
why I wondered if it was the component. Below is the function that I'm
using to send the email.
Any help would be greatly appreciated.
Thanks!
if mailComp = "CDOSYS" then
set cdoMessage = Server.CreateOb ject("CDO.Messa ge")
set cdoConfig = Server.CreateOb ject("CDO.Confi guration")
'
cdoConfig.Field s("http://schemas.microso ft.com/cdo/configuration/sendusing")
= 2
'
cdoConfig.Field s("http://schemas.microso ft.com/cdo/configuration/smtpserver"
) = smtpServer
cdoConfig.Field s.Update
set cdoMessage.Conf iguration = cdoConfig
cdoMessage.From = fromAddr
cdoMessage.Repl yTo = replyTo
cdoMessage.To = recipients
cdoMessage.Subj ect = subject
cdoMessage.Html Body = body
on error resume next
cdoMessage.Send
if Err.Number <0 then
SendMail = "Email send failed: " & Err.Description & "."
end if
set cdoMessage = Nothing
set cdoConfig = Nothing
exit function
end if
'Send email (JMail version).
if mailComp = "JMail" then
set mailObj = Server.CreateOb ject("JMail.SMT PMail")
mailObj.Silent = true
mailObj.ServerA ddress = smtpServer
mailObj.Sender = fromAddr
mailObj.ReplyTo = replyTo
mailObj.Subject = subject
addrList = Split(recipient s, ",")
for each addr in addrList
mailObj.AddReci pient Trim(addr)
next
mailObj.Content Type = "text/html"
mailObj.Body = body
if not mailObj.Execute then
SendMail = "Email send failed: " & mailObj.ErrorMe ssage & "."
end if
exit function
end if
I have a Win2K server that I run a website on. I have an asp page that
sends an email to me when someone makes a request or provides feedback on
the website. It has worked fine until some point in the last month. I know
there were a bunch of "Critical Updates" that Microsoft forced on my machine
and forced the restart. Could that have anything to do with the reason the
email doesn't work anymore? I keep getting a "Page cannot be displayed"
error when I post to the asp page that sends the email. I also have another
third party ASP.net application that doesn't send email anymore, so that's
why I wondered if it was the component. Below is the function that I'm
using to send the email.
Any help would be greatly appreciated.
Thanks!
if mailComp = "CDOSYS" then
set cdoMessage = Server.CreateOb ject("CDO.Messa ge")
set cdoConfig = Server.CreateOb ject("CDO.Confi guration")
'
cdoConfig.Field s("http://schemas.microso ft.com/cdo/configuration/sendusing")
= 2
'
cdoConfig.Field s("http://schemas.microso ft.com/cdo/configuration/smtpserver"
) = smtpServer
cdoConfig.Field s.Update
set cdoMessage.Conf iguration = cdoConfig
cdoMessage.From = fromAddr
cdoMessage.Repl yTo = replyTo
cdoMessage.To = recipients
cdoMessage.Subj ect = subject
cdoMessage.Html Body = body
on error resume next
cdoMessage.Send
if Err.Number <0 then
SendMail = "Email send failed: " & Err.Description & "."
end if
set cdoMessage = Nothing
set cdoConfig = Nothing
exit function
end if
'Send email (JMail version).
if mailComp = "JMail" then
set mailObj = Server.CreateOb ject("JMail.SMT PMail")
mailObj.Silent = true
mailObj.ServerA ddress = smtpServer
mailObj.Sender = fromAddr
mailObj.ReplyTo = replyTo
mailObj.Subject = subject
addrList = Split(recipient s, ",")
for each addr in addrList
mailObj.AddReci pient Trim(addr)
next
mailObj.Content Type = "text/html"
mailObj.Body = body
if not mailObj.Execute then
SendMail = "Email send failed: " & mailObj.ErrorMe ssage & "."
end if
exit function
end if
Comment