[ASP]CDONTS.newmail werkt niet? - Softwareontwikkeling

maandag 17 juni 2002 20:54

Acties:

Verwijderd

Topicstarter

Ik wil een email versturen als een gebruiker zijn gebruikersnaam en wachtwoord is vergeten.

Daarvoor gebruik ik de volgende code:

code:

ConnectDB()
sSQL = "select strUserName, strPassword from tblUsers WHERE strEmail = " & "'" & strEmailForm & "'"
set oRS = oConn.Execute(sSQL)

if (oRS.Eof and oRS.Bof) = True then
Response.Write("<html><body><link rel=stylesheet href=stijl.css type=text/css>Er is geen gebruiker met dit emailadres gevonden.</body></html>")

else
strUserName = (oRS("strUserName"))
strPassWord = (oRS("strPassWord"))

Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "afzender"
objNewMail.To = strEmailForm
objNewMail.Bcc = "mijn email"
objNewMail.Subject = "Gebruikersnaam en wachtwoord"
objNewMail.Body = "test"
objNewMail.Send 

Response.Write("<html><body><link rel=stylesheet href=stijl.css type=text/css>Uw Wachtwoord is verzonden.</body></html>")
end if
DisconnectDB()

Het IF-THEN-ELSE statement werkt prima en de waarden zijn ook gevuld. Echter verstuurt-ie om één of andere reden geen email.

Iemand een idee waar het aan kan liggen? Volgens mij kan mijn server wel CDONTS aan...

maandag 17 juni 2002 20:55

Acties:

.GoO

Weet je zeker dat CDONTS op de server geinstalleerd is?? Dit is volgens mij niet standaard het geval.. BV Brinkster (gratis) ondersteund het ook niet

En waar staat strEmailForm?

maandag 17 juni 2002 20:57

Acties:

Verwijderd

Topicstarter

Jee, je bent snel

Ik zit bij ASHosting, maar weet inderdaad niet zeker of ze CDONTS ondersteunen, en ik kan het ook niet vinden.
Ik zal ze even een mailtje sturen, of nog even beter kijken.

maandag 17 juni 2002 21:01

Acties:

robjanssen

Software Developer

Krijg je een foutmelding te zien?
Zo ja, welke?

Als de server geen CDONST ondersteunt, dan moet hij een foutmelding geven.

maandag 17 juni 2002 21:06

Acties:

Verwijderd

Topicstarter

Nee, hij geeft geen foutmelding.

Dan zou hij dus volgens jou CDONTS ondersteunen...
Wat is er dan fout in mijn script?

edit:

Wow, ASHosting is ook al zo snel met reageren!
Er is dus inderdaad CDONTS geinstalleerd, maar hij geeft dus geen foutmelding....

maandag 17 juni 2002 21:16

Acties:

robjanssen

Software Developer

Probeer eens:

code:

If objNewMail.Send Then
  Response.Write "Goed"
Else
  Response.Write "Fout"
End If

maandag 17 juni 2002 21:41

Acties:

Verwijderd

Topicstarter

Op maandag 17 juni 2002 21:16 schreef robjanssen het volgende:
Probeer eens:
code:
1
2
3
4
5
If objNewMail.Send Then
  Response.Write "Goed"
Else
  Response.Write "Fout"
End If

Die lust ie helaas niet.
error '80040108'
/verslagen/wachtwoord.asp, line 31

Ook andere properties an objSendMail geprobeerd, geen succes...

maandag 17 juni 2002 22:11

Acties:

robjanssen

Software Developer

Vul je wel een geldig e-mail adres bij de To en de BCC in?
Misschien wordt de e-mail anders niet verstuurd.

maandag 17 juni 2002 22:12

Acties:

.GoO

Nogmaals, strEmailForm is in de stuk code niet gedefinieerd.. Is dat buiten die code wel ergens juist gebeurd?

maandag 17 juni 2002 22:17

Acties:

Verwijderd

Topicstarter

strEmailForm was inderdaad ergens anders gedefinieerd.
Hier zat de fout...

objNewMail.To = strEmailForm

moet dus zijn:

objNewMail.To = "" & strEmailForm

Dan werkt ie wel. Raar maar waar...:?

ps. Die emailadressen had ik er even tussenuit gesloopt