Avatar billede foreignhelp Nybegynder
16. april 2003 - 00:33 Der er 2 kommentarer og
1 løsning

JMail problem - ret kringlet....

Jeg har et meget URGENT problem med en brevkassefunktion på mit website. Jeg kan simpelthen ikke få denne JMail til at sende mailen afsted. Jeg har mit webhotel hos Azero og alle mine andre Jmail funktioner virker fint på samme webside, så jeg ved at fejlen ikke ligger hos Azero men i scriptet. Jeg får denne fejl:

jmail.SMTPMail error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/ekspert/answer.asp, line 69



Her kommer JMail-delen af scriptet



<%
if request("mode") = "send" then

Function clearBody(bodyTxt)
chekBody = True
'fjerner alle html tags
Do While chekBody = True
startBody = Instr(1,bodyTxt,"<")
slutBody = Instr(startBody+1,bodyTxt,">")
If startBody > 0 Then
bodyTxt = Left(bodyTxt,startBody-1) & Mid(bodyTxt,slutBody+1,Len(bodyTxt))
Else
chekBody = False
End If
Loop
clearBody = bodyTxt
End Function

bodyTxt = request("svar")
bodyTxt = clearBody(bodyTxt)
svar = bodyTxt

SQL = "UPDATE spm SET SVAR = '"& Replace(svar,"'", "''") &"' WHERE (ID ="& request("spmid") &")"
conn.execute (SQL)
SQL1 = "SELECT * FROM spm WHERE id = " & request("spmid")
conn.execute( SQL1 )



Set JMail          = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "websmtp.minwebside.dk"
    JMail.Sender        = "admin@minwebside.dk"
    JMail.SenderName                = "minwebside.dk"
    JMail.Subject      = "Dit spørgsmål er nu besvaret"
    JMail.AddRecipient  email
    JMail.Priority      = 3
    JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    jmail.charset="iso-8859-1"
   

JMail.Body = "Dette er overskrift" &  vbcrlf & vbcrlf &_                 
 
"Vi ønsker dig mange gode henvisninger - De bedste hilsner http://www.minwebside.dk" & vbCrLf               
    JMail.Execute
    Set JMail = Nothing
   


%>
Avatar billede mcgreed Nybegynder
16. april 2003 - 00:40 #1
Jeg ser ikke variablen "email" nævnet andre steder end i JMail.AddRecipient  email. Nogen grund til det?
Avatar billede foreignhelp Nybegynder
16. april 2003 - 00:43 #2
Beklager der er denne sætning lige over: set JMail

email = request("email")
Avatar billede madrich Nybegynder
16. april 2003 - 07:21 #3
Du får fejlen fordi variablen [email] = "" / null, prøv - før at erstatte:

    JMail.Execute
    Set JMail = Nothing

med

if len(email) < 5 then ' // a@a.dk ex. minimum længde for email
    response.write("<script>alert('emailen er ikke god nok.')</script>")
else
    JMail.Execute
    Set JMail = Nothing
end if
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester