6 svar · 237 visningar · startad av pellsäter
Har sett att frågan varit uppe förut men hittar inga bra svar!
Jag har en databas med ca 30 adresser. Jag vill att medlemmarna lätt ska kunna från hemsidan skicka epost till alla på en gång. Använder mig av Jmail och loopar igenom databasen, lägger det i BCC.
Det går oerhört långsamt. så sakta att jag får script timeout.
Hjälp!!
skulle man kunna få kika på koden du använder dig av?
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "xxxxxxx"
Set rs = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM epost"
rs.Open Visa, Conn, 3,3
%>
<%
amne = Request.Form("amne")
meddelande = Request.Form("meddelande")
fnamn = Request.Form("fnamn")
enamn = Request.Form("enamn")
uppg = "Från: " & fnamn & " " & enamn & vbCrLf & vbCrLf
uppg = uppg & meddelande
set Jmail = Server.CreateOBject( "JMail.SMTPMail" )
JMail.Sender = "info@amts.nu"
JMail.AddRecipient "info@amts.nu"
do while not rs.EOF
JMail.AddRecipientBCC "" & rs("epost") & ""
rs.MoveNext
loop
JMail.Subject = amne
JMail.Body = uppg
Jmail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
Jmail.execute
%>
jag ser inget spontant som kan vara galet, men ett par förändringar kan vi ta och göra i alla fall.
byt sql-frågan till
select distinct epost from epost
byt raden där du lägger till bcc-mottagare till:
JMail.AddRecipientBCC rs("epost")
känns lite onödigt att lägga till tomma strängar här och där när det absolut inte behövs.
vet inte om det kommer göra nån nytta, men...
ahh! såklart! 