newsletter non invia a tutti i destinatari

[daxie]

cm avreste capito dal titolo ho il seguente problema, ho fatto una newsletter qui sotto il codice che ho usato:

<%
Dim rs, mail, subject, message, data_source, sql_select, no

no = 0
subject = Request.Form("subject")
message = Request.Form("testo")
message = message & vbcrlf & vbcrlf & "




INFO: Stai ricevendo questa mail perchè sei iscritto alla mailing list di http://www.stasolution.it
Se questo messaggio ti giunge in errore o non desideri ricevere più questo tipo di informazioni per favore clicca il collegamento qui sotto e cancella il tuo indirizzo dalla mailing list e non sarai piu' disturbato."
message = message & vbcrlf & "www.miosito.it/del.asp?email="
sql_select = "select email from users"
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("mdb-database\mail.mdb")
If Len(message) Then

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg
Set .Configuration = iConf
.To = rs("email")
.From = "www.miosito.it"
.Bcc = ""
.Subject = subject
.CreateMHTMLBody "http://www.miosito.it/messaggio_newsletter.htm"
.Send
End With

Response.Write "Emails sent to " & no & " users."
rs.Close
Set rs = Nothing

Else
Response.Redirect "admin.htm"
End If
%>

ho fatto un pò di prove e la mail la manda solo ed esclusivamente al primo indirizzo memorizzato nella tabella di access e non riesco a capire come mai...qualcuno sa dirmi come fare a risolvere o dove ho sbagliato? grazie

[Roby_72]

Apri il recordset ma non lo scorri e quindi recupera solo il primo.

Roby

[daxie]

e come faccio a digli di scorrerlo?

[Roby_72]

rs.Open sql_select, data_source
do while not rs.EOF
'recuperi email e la mandi

rs.MoveNExt
Loop
Response.Write "Emails sent to " & no & " users."
rs.Close
Set rs = Nothing
...
...

Roby

[daxie]

grazie mille roby!!!
meriteresti un bacio...ma visto che sei un uomo...una stretta di mano mi sembra più che sufficente!

[Roby_72]

Direi anch'io...

Roby

[mosquito70]

Originariamente inviato da daxie
cm avreste capito dal titolo ho il seguente problema, ho fatto una newsletter qui sotto il codice che ho usato:


ho fatto un pò di prove e la mail la manda solo ed esclusivamente al primo indirizzo memorizzato nella tabella di access e non riesco a capire come mai...qualcuno sa dirmi come fare a risolvere o dove ho sbagliato? grazie

avevi già aperto un thread

Comunque vedo che hai risolto

[daxie]

questo l'ho aperto dopo...grazie mille d tutto mosquito! mi sei stato molto utile!!