Hej igen!
Nån som kan se om det är nått fel på denna loppen? för det råkade vara så att en av prenumeranterna fick 300 mail :(
Ditt nyhetsbrev har skickats iväg utan problem!!!
<br><br>
<%
Session.LCID = 1053
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\login4.mdb"))
sql="SELECT * FROM login "
set rs=conn.execute(sql)
body = request.form("text")
subject = "Nyhetsbrev från UMR "&date()&""
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.webtomten.com"
JMail.Sender = "info@umr.st"
JMail.Subject = subject
Do Until rs.EOF
JMail.addrecipientbcc rs("epost")
rs.MoveNext
Loop
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
jmail.Body = Body
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
%>
------------------ Utdrag nr 2 ur jispirs regelbok-->Sov bara när du är trött inte när nån säger till dig :D
Ett gott trams förlänger livet :e
Ditt nyhetsbrev har skickats iväg utan problem!!!
<br><br>
<%
Session.LCID = 1053
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\login4.mdb"))
sql="SELECT * FROM login "
set rs=conn.execute(sql)
body = request.form("text")
subject = "Nyhetsbrev från UMR "&date()&""
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.webtomten.com"
JMail.Sender = "info@umr.st"
JMail.Subject = subject
JMail.AddRecipient "info@umr.st"
Do Until rs.EOF
JMail.addrecipientbcc rs("epost")
rs.MoveNext
Loop
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
jmail.Body = Body
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
%>
med den skillnaden som du kanske såg, har en addrecipient, dvs, jag skickar en till mig själv och resten som BCC ...
Funkar hur bra som helst, ca 850 adresser i db, utan att ngn får dubletter ;)
ofta e det så att man ställer servern att ej att Relay emailadresser utanför domänen, allt för att spammare ej ska kunna använda sig av servern utifrån.
