ho scritto queto codice per estrarre i destinatari da un database e inviare le mail
<%
dim oggetto
oggetto=request.form("oggetto")
dim testo
testo=request.form("testo")
strHTML = "<html><body>"
strHTML = strHTML & ""
strHTML = strHTML & "
"
strHTML = strHTML & destinatario
dbfile=Server.MapPath("/mdb-database/utilizzatori.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM users "
rs.Open sql, OBJdbConnection, 3, 3
Do While not rs.eof
destinatario=Rs("email")
'imposto la forma della mail
strHTML = "<html><body>"
strHTML = strHTML & ""
strHTML = strHTML & "
"
strHTML = strHTML & destinatario
strHTML = strHTML & "</body></html>"
'--------
' istanza di CDO.Message
set CDOmail = CreateObject("CDO.Message")
CDOmail.To = destinatario
CDOmail.From = "xxx@libero.it"
CDOmail.Subject = oggetto
' testo da inviare
CDOmail.HTMLBody = strHTML
' invio del messaggio
CDOmail.Send()
response.write "email inviata a "
response.write destinatario
response.write "
"
rs.MoveNext
loop
%>
la pagina mi mostra tutti i destinatari uno dopo l'altro, ma poi le email non arrivano a tutti, a volte arriva ai primi e non agli ultimi, a volte a nessuno a volte a 2 o 3
cosa sbaglio?
Rispondi quotando
