Hej!
Hur skickar ja bäst nyhetsbrev i cdonts?
De handlar om ca 90 000 emailadresser.

min kod:

<code>
<% Session.LCID = 1053
Server.ScriptTimeOut = 3000
Session.TimeOut = 120


If Request.QueryString("skicka") = "nyhetsbrev" Then
If Session("admin") <> 10 Then
Response.Redirect("default.asp")
End If

Set Recset = Connect.Execute("Select email from medlemmar where aktiv = 'True'")
If Recset.EOF Then %>

Tillbaka till admin<br>
<br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Det finns inga medlemmar
ännu!</font>

<% Else
Do Until Recset.EOF

Email = Recset("email")
Rubrik = Request.Form("rubrik")
Nyhetsbrev = Request.Form("nyhetsbrev")

Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")

MyCDONTSMail.From = "noreply@minmail.com"
MyCDONTSMail.To = "" & Email & ""
MyCDONTSMail.Subject = "" & Rubrik & ""

MyBody = "" & Nyhetsbrev & "" & vbCrLf

MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
Set MyCDONTSMail=Nothing

Recset.Movenext
Loop %>

Tillbaka till admin<br>
<br>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nyhetsbrevet är
nu skickat till alla medlemmar.</font>

<% Recset.Close
Set Recset = Nothing
End If
End If %>
</code>

Detta tar 100 år innan de skickas, o ja får felmeddelande Server.ScriptTimeOut.

Mvh Hassan

Gör en loop runt
MyCDONTSMail.BBC = "" & Email & ""
istället och inte hela funktionen så sköter mailservern om utskickningen.
Om servern stödjer 90000 mailadresser dvs.

Vart har du köpt så många adresser?

Köpt har jag inte gjort.
Det är medlemmarna på min hemsida.

Menar du såhär:
<code>
Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")

MyCDONTSMail.From = "noreply@sidan.com"

Do Until Recset.EOF

MyCDONTSMail.To = "" & Email & ""

Recset.Movenext
Loop

MyCDONTSMail.Subject = "" & Rubrik & ""

MyBody = "" & Nyhetsbrev & "" & vbCrLf

MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
Set MyCDONTSMail=Nothing
</code>

Ja, men inte .To då det resulterar i att alla ser mottagarna.

MyCDONTSMail.BBC = "" & Email & ""

Eller

Do Until Recset.EOF
adresser=adresser& RecSet("email") & ", "
Recset.Movenext
MyCDONTSMail.BBC = adresser

felmeddelande:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BBC'

PS: Hur gör jag för att skicka 5000 emailadresser per 30 min...
min webbhotell vill gärna det istället för att skicka 90 000 direkt.