Problemer med JMail
Her er min kode:'Her sættes Server objektet JMail
'Der er blevet fundet hjælp til dette på http://www.dimac.net/Products/w3JMail/Manuals/w3JMail45Manual.pdf
set msg = Server.CreateOBject( "JMail.Message" )
'logging er slået til for at gøre fejlfinding nemmere
msg.Logging = true
'fortæller at indholdet er tekst/html
msg.ContentType = "text/html"
'henter email fra formularen. Dette sker kun hvis ovenstående email tjek er godkendt
msg.From = Request.Form("email")
'henter afsenders navn fra formularen
msg.FromName = request.form("navn")
'henter modtager adressen fra databasen
msg.AddRecipient ""&rsMail("email")&""
'Henter emne fra formularen
msg.Subject = Request.form("emne")
'mailens indhold bliver stillet pænere op af modtager har mere overskuelighed
msg.Body = "Fra: "&Request.form("navn")&"<br />Emne: "&request.form("emne")&"<br />Body: "&Request.form("body")&"<br />"
'her tjekkes om mailen bliver sendt, hvis ikke vil fejlmelding komme frem som vi tillod med msg.Loggin = true
if not msg.Send("smtp;erlvms@localhost" ) then
'msg.send("smtp;erlvms@localhost")
'Logen udskrives
Response.write "<pre>" & msg.log & "</pre>"
else
'ved sendt mail, vidresendes bruger til en meddelse om at mailen er sendt
Response.redirect ""&host&"?page="&page&"&action=mailsendt"
end if
'ender mail
Set msg = Nothing
Fejlbeskeden:
jmail.Message error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/includes/subs.asp, line 138
Linie 138:
if not msg.Send("smtp;erlvms@localhost" ) then
