JMail fejler
Jeg kan ikke sende ud til mine modtagere...den siger bare all reciepents failed...
hvis jeg kører en on error resume next kommer fejlen ik men den udsneder så heller ikke mailsene :/
hvad er fejlen ?
<%
if request("sendt") = "ja" then
if request.form("til") = "Medlemmer" then
set rs = conn.execute("select * from brugere")
elseif request.form("til") = "redaktion" then
set rs = conn.execute("select * from personer")
elseif request.form("til") = "Test mail" then
set rs = conn.execute("select * from testmail")
end if
sendt = "0"
do until rs.eof
if rs("email") <> "" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail01.hostinghuset.dk"
JMail.sender = "thomas@cmson.dk"
JMail.sendername = "MusicON Magazine"
JMail.subject = request.form("emne")
JMail.AddRecipient rs("email")
'Thomas Faugsted skriver udtrækket til body delen i mailen
JMail.Body = "<html><LINK REL='StyleSheet' HREF='http://www.musicon.dk/css.css' type='text/css'><span class='nyhedsbrev'>"
JMail.Body = JMail.Body & request("topbesked") &"<br><br>"
JMail.Body = JMail.Body & request("emne") &"<br><br>"
'JMail.Body = JMail.Body & "Hej " & rs("email") &"<br><br>"
JMail.Body = JMail.Body & request.form("besked") &"<br><br>"
JMail.Body = JMail.Body & request.form("bundbesked")
JMail.Body = JMail.Body & "</span></html>"
'Her bliver mailen med oplysningerne i´s prioritet bestemt
' 1 - højeste (Haster / Vigtigt) (Rødt tegn )
' 3 - normal
' 5 - lavest
JMail.Priority = 3
JMail.Execute
sendt = sendt + 1
end if
rs.movenext
loop
Set JMail = Nothing
Response.write "Nyhedsbrevet er nået ud hos "& sendt &" modtagere"
end if
%>
