Jmail - Sende til xx antal bcc af gangen - Too many recipients
Hej eksperter,jeg vil gerne sende en mail ud til min mailliste og min kode virker - Sådan da - De først 100 får en e-mail mens jeg får en fejlmeddelelse for resten: 552 5.5.3 Too many recipients.
Så vidt jeg har fundet frem til så er det smtp serveren der svarer fejlmeddelelsen tilbage - Der er en begrænsning på 100 for hver e-mail.
Jeg skal sende til ca. 160.
Er der nogen der kan hjælpe mig med at få mit script til at sende f.eks 50 eller 90 af gangen?
Min kode ser sådan ud (jeg har fjernet XX):
<%
set msg = Server.CreateOBject( "JMail.Message" )
Set upload = Server.CreateObject( "w3.Upload" )
msg.Logging = True
msg.Silent = True
Server.ScriptTimeout = 600
'Check for attachments and add them to the email
set attachment = upload.Form( "attachment" )
if attachment.IsFile then
msg.AddCustomAttachment attachment.filename, attachment.item, false
end if
msg.from = upload.form("fra")
msg.Subject = upload.form("emne")
'JMail.Subject = "" & request.form("emne") & ""
msg.AddRecipient "XX"
response.expires = 0
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("XX")
SQLstmt = "SELECT * FROM XX;"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
DO WHILE NOT rs.EOF
msg.AddRecipientBCC rs("email")
rs.MoveNext
LOOP
msg.Priority = 3
msg.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' ********** Her starter selve email-en
msg.Body = upload.form("besked")
' ********** Her slutter selve email-en
' To capture any errors which might occur, we wrap the call in an IF statement
if not msg.Send( "XX" ) then
Response.Write "ERROR MESSAGE: " & msg.ErrorMessage & "<br/>" & vbCrLf
Response.Write "ERROR SOURCE: " & msg.ErrorSource & "<br/>" & vbCrLf
Response.Write "LOG: <pre>" & msg.Log & "</pre>" & vbCrLf
' Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if
Set msg = Nothing
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>