Help here lads please...

 

when I try to add a post, I get this error...

 

error '8004020f'

/functions/functions_send_mail.asp, line 137

 

Jim

 

my email is PROPERLY setup on the server. I can send out a mass email to anyone and use the email a member functionality within the forums as per normal....ie my CDOSYS works fine!!!!

 

yet STILL, when i post, or anyone posts a new message, you get that same error message...using the Back button shows you tho that your message WAS recorded as you can see it at the bottom of that thread.

 

so....anyone else here help with what might be a very unique problem?

 

Jim

borg..

 

this server (and I'm the admin btw, it's a ded server) has more than 50 domains on it. many of them, use our own ASP email engine to send out email. my own CDOSYS scripting is pretty simple, but it's somewhat more complex, as we don't use the MS SMTP at all, instead we use MailEnablePRO as the SMTP.

 

that said, your OWN code, to send out the emails is where the failure happens. this can be found in the CDOSYS routine in functions_send_mail.asp. somewhere in that snippet, the failure occurs...

===================================================

'CDOSYS mail component
  Case "CDOSYS"

   'Dimension variables
   Dim objCDOSYSCon

   'Create the e-mail server object
   Set objCDOSYSMail = Server.CreateObject("CDO.Message")
       Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

       'Set and update fields properties
       With objCDOSYSCon
           'Out going SMTP server
           .Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserver - http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strOutgoingMailServer
           'SMTP port
           .Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserverport - http://schemas.microsoft.com/cdo/configuration/smtpserverport ")  = 25
           'CDO Port
           .Fields(" http://schemas.microsoft.com/cdo/configuration/sendusing - http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
           'Timeout
           .Fields(" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout - http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ") = 60
           .Fields.Update
          End With

    'Update the CDOSYS Configuration
    Set objCDOSYSMail.Configuration = objCDOSYSCon

   With objCDOSYSMail
    'Who the e-mail is from
    .From = strFromEmailName & " <" & strFromEmailAddress & ">"

    'Who the e-mail is sent to
    .To = strRecipientName & " <" & strRecipientEmailAddress & ">"

    'The subject of the e-mail
    .Subject = strSubject

    'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
    If blnHTML = True Then
      .HTMLBody = strEmailBodyMessage & strEmailBodyAppendMessage
    Else
     .TextBody = strEmailBodyMessage & strEmailBodyAppendMessage
    End If

    'Send the e-mail
    If NOT strOutgoingMailServer = "" Then .Send
   End with

   'Close the server mail object
   Set objCDOSYSMail = Nothing

===============================================

I've colored the line that the code failure occurs on....as you can see, the test is for this "strOutgoingMailServer" var from the green colored line above.

 

Somehow the prob tho of WHY that var is not capable of being tested, is beyond me. I've done many changes to your code and tried to sub in other vars that make CDOSYS run on this server for my own clients....and still NADA....

 

Can you help here? Your link to the aspfaq site is nice, but no where there does the problem of mine seem to be addressed...

 

???

Jim

 

???

Jim