[ASP] Problemen met CDOSYS (8004020e)

[Noob6]

Hallo,


Onderstaande code gebruik ik op mijn site om de resultaten van een formulier naar mijn mailadres te sturen. Dit werkt uitstekend met computers met winXP of 98 met verschillende browsers (IE6&7 FF 1.x en 2.x). Laatst teste ik hem op een computer met windows 2000 (IE6,0,2) en toen kreeg ik foutmelding 8004020e en het bericht kwam dus ook niet aan. Nu weet ik niet of het specifiek aan die machine ligt of dat er ook andere bezoekers van mijn site geconfronteerd kunnen worden met deze situatie. Kunnen jullie iets ontdekken wat de oorzaak hiervan kan zijn?

Ik heb overigens ook geprobeerd met een stukje code direct een mail te verzenden aan de hand van een aantal variabelen. (geen formulier resultaten). Dit werkte wel zonder problemen op de bewuste computer.

code:

<% 
Dim email, bericht, onderwerp, onderwerp_mail, achternaam, voornaam, geslacht, woonplaats

' GEGEVENS OPHALEN
email = Server.HTMLEncode( request.Form("email"))
bericht = Server.HTMLEncode( request.Form("bericht"))
onderwerp = request.Form("onderwerp")
achternaam = Server.HTMLEncode( request.Form("achternaam"))
voornaam = Server.HTMLEncode( request.Form("voornaam"))
geslacht = request.Form("geslacht")
woonplaats = Server.HTMLEncode( request.Form("woonplaats"))

onderwerp_mail = "Site-reactie: "&onderwerp

' SERVER MAIL OBJECTEN CREEËREM 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

' OUTGOING SMTP SERVER
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objCDOSYSCon.Fields.Update 

' CDOSYS INSTELLEN
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'MAIL GEGEVENS
objCDOSYSMail.From = email
objCDOSYSMail.To = "[e-mail]" 
objCDOSYSMail.Subject = onderwerp_mail

'INHOUD VAN DE MAIL IN HTML-OPMAAK
objCDOSYSMail.HTMLBody = ""&_ 
"<br>"&_ 
"<b>"&onderwerp+":</b><br>"&_ 
"Naam: "&geslacht+" "+voornaam+" "+achternaam&_ 
"<br>E-Mail: "&Request.Form("email")&_ 
"<br>Plaats: "&woonplaats&_ 
"<br>"&_ 
"<br><b>Bericht: </b>"&_
"<br>"&bericht 

'MAIL VERZENDEN
objCDOSYSMail.Send 

'MAILOBJECT EN SERVER CONNECTIE SLUITEN
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
%>

Alvast bedankt!

[RobIII]

Als eens gegoogled op de errorcode?
Lijkt me dat je email adres niet goed binnen komt van de POST; dus even debuggen en de waardes response.writen. Daarnaast mag je (volgens mij) niet de ampersand ( & dus) aan de quotes vast schrijven; dus er moeten spaties in als volg:

code:

"<br>blablah" & _

Zie overigens ook Debuggen: hoe doe ik dat?

[ Voor 16% gewijzigd door RobIII op 28-05-2007 16:46 ]