JMail - fejl 503
Hvor fejler nedenstående??<%
Sub SendEmail(afsenderNavn, afsenderEmail, modtagerNavn, modtagerEmail, titel, besked, prioritet)
\'********************************************************************************************
\' Forventer at der er udfyldt en form, som sendes til det asp-script, der includer jmail.inc
\' Følgende form-felter skal medsendes
\' - afsendernavn (eks. Nyhedslisten)
\' - afsenderemail (eks. newslist@internettjenesten.dk)
\' - modtagerNavn
\' - modtagerEmail
\' - titel - mailens titel
\' - besked - tekst der skal sendes
\' - prioritet - 1=Høj, 3=normal, 5=lav
\'********************************************************************************************
On Error Resume Next
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
Jmail.ServerAddress = \"mail.internettjenesten.dk\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.ContentType = \"text/plain\"
Jmail.Sender = afsenderNavn
Jmail.ReplyTo = afsenderEmail
Jmail.AddRecipientEx modtagerEmail, modtagerNavn
Jmail.Subject = Titel
Jmail.Priority = prioritet
Jmail.Body = besked
Jmail.Execute
If Err <> 0 Then
response.write \"Din mail blev ikke sendt. Prøv igen.<br>Hvis dette problem gentager sig, bedes du rette henvendelse til <a href=mailto:webmaster@internettjenesten.dk>webmaster@internettjenesten.dk</a><p>\"
response.write \"Fejlkode: \" & Jmail.ErrorCode & \"<br>Fejltekst: \" & Jmail.ErrorMessage & \"<br>\"
End If
Set Jmail = Nothing
End Sub
%>
