Send til mailliste!
Hej...Jeg har dette script liggende som jeg bruger til at sende besked ud til en mailliste, der ligger i en database.
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS
mailertype = 1
'**********************************************
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\db\mailliste.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from mailliste"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
if mailertype = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "mail.hjemmeside.dk"
' mail config settings
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "mailliste@hjemmeside.dk"
JMail.Subject = request("header")
JMail.AddRecipient send("email")
JMail.Body = request("tekst")
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
set JMail = nothing
elseif mailertype = 2 then
' importance = 0 ' lav
importance = 1 ' normal
' importance = 2 ' høj
Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
mailObj.Send "mailliste@hjemmeside.dk", send("email"), request("header"), request("tekst"), importance
' slet reference til CDONTS object
Set mailObj = Nothing
end if
response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
else %>
Mit problem er, at den en gang har virket, men nu virker det ikke længere. Jeg ved ikke hvad jeg har lavet (mener ikke jeg har ændret noget fra dengang det virkede) men nu virker det i hvert fald ikke.
Nå man sender mailen, får man en korrekt besked om at beskeden er blevet sendt til de adresser der figurerer i maillisten, men adresserne modtager intet!
