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!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

0x8004020F error sending email

Status
Not open for further replies.

jlsmithhartfiel

Programmer
Jan 7, 2002
336
US
Hi!

A few people are having problems sending an email from my registration page. Not everyone is having a problem. I haven't been able to discern a pattern as of yet.

Any ideas would be appreciated!

The error is as follows:
Code:
The page cannot be displayed There is a problem with the page you are trying to reach and it cannot be displayed. 

Technical Information (for support personnel)
·	Error Type:
(0x8004020F)
/saveinfowebgh.asp, line 141
·	Browser Type:
Mozilla/4.0 (compatible; MSIE 5.5; Windows 95) 
·	Page:
POST 184 bytes to /saveinfowebgh.asp 
·	POST Data: 
demodate=Sep+23&demodate=Sep+24&fname=MyName&lname=MyLastName&company=MyCompany&email=me@nowhere.com&phone=800-555-1212&reference=abc&submit1=Submit 
·	Time:
Wednesday, August 13, 2003, 8:56:20 AM 
·	More information:
Microsoft Support

The code at line 141 is the .Send below:
Code:
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPort = 2

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With Flds
    .Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = cdoSendUsingPort
    'ToDo: Enter name or IP address of remote SMTP server.
    .Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "our.mail.server"
    .Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")[/URL] = 10
    .Update
End With

' Build HTML for message body.
strHTML = &quot;<HTML>&quot;
<snipped rest of email body>

' Apply the settings to the message.
With iMsg
    Set .Configuration = iConf
    .To = strEmail
    .BCC = strBCC
    .From = strFrom
    .Subject = strSubject
    .HTMLBody = strHTML
    .Send
End With

' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


Jessica [ponytails2]
 
well, the CDO script is run off the server obviously so thats not the problem. The problem is more then likely the URL and the QueryStrings that is being passed to the script. Is there any client level scripts run to build this prior to submiting that may not be supported in the older browsers? Like a format script or validation script of some sort?

Have you tried the typical debug of the CDO and the values yet?

_____________________________________________________________________
onpnt2.gif

[bdaycandle]
 
Thanks for the quick response!

There aren't any client level scripts for this page, so we can rule that out.

I did try to duplicate the data the user had a problem with from my pc, but I didn't get the error - it went through...

I'm not very familiar with the CDO, just picking up where someone left off. Is there a website that might give me the steps to debug?

Thanks!

Jessica [ponytails2]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top