Problems with CDOSys and Win2K

Collapse
This topic is closed.
X
X
 
  • Time
  • Show
Clear All
new posts
  • Rico

    Problems with CDOSys and Win2K

    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


  • Dave Anderson

    #2
    Re: Problems with CDOSys and Win2K

    Rico wrote:
    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.
    Start here for viewing better error messages:



    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.
    Once you get more descriptive error messages, the problem may reveal itself.
    Among the many possibilites include SMTP services being turned off, lacking
    the disk space to drop messages into the pickup folder (if using local
    services) and changes on your relay or smart host servers (if you use
    those).

    Also, I note that you do not perform an update on cdoConfig.Field s:

    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()



    --
    Dave Anderson

    Unsolicited commercial email will be read at a cost of $500 per message. Use
    of this email address implies consent to these terms.



    Comment

    Working...