Lo sapete che da ARUBA non si riescono a mandare più tante mail ?

[victor8872]

Ciao a tutti
da anni utilizzavo questa pagina asp per mandare migliaia di mail

<%
Server.ScriptTimeout = 3000
%>
<%

dim stringa_conn
stringa_conn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("rizzoli.mdb")
dim conn
set conn = server.createobject("adodb.connection")
conn.open stringa_conn

count=0


if request.form("mail")="invia mail" then

oggetto=request.form("oggetto")
testo=request.form ("testo_messaggio")

val1=split(request.form("id"),",")

for each val1 in val1



count=count+1







Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")



MiaMail.From = "info@thomasart.it"
MiaMail.To = val1
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
MiaMail.Subject = oggetto
MiaMail.htmlBody =testo
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
'MiaMail.Fields("urn:schemas:httpmail:importance") .Value = 2
'MiaMail.Fields.Update()


MiaMail.Send()
Set MiaMail = Nothing



next



response.write count & " E-mail inviati"

else

val=split(request.form("id"),",")

for each val in val

count=count+1

sql="delete * from corsisti where LINK='"&val&"'"

conn.execute(sql)


next
response.write count & " eliminati"
end if
%>

Da un po' di settimane ormai le mail non vengono più inviate
sembrerebbe di si ma di fatto non le invia


Ho chiesto ad aruba ed hanno detto che non si possono più inviare tante mail insieme x problemi di spam


Voi sapevate qualcosa in merito?

Come si puo' risolvere ?

[cavicchiandrea]

in rete trovi script che "impaginano" l'invio delle newletter

[victor8872]

mi faresti vedere come posso fare?
guarda sto impazzendo, da quando non riesco a mandare ste mail si è bloccato il lavoro

grazie

[cavicchiandrea]

Non posso perché non ho mai sviluppato una newsletter, ma come già detto dovresti trovare parecchio anche qui sul forum, oppure valutare se utilizzare (ancora che sia un servizio attivo) le newsletter di Aruba.

[optime]

di *quante* mail stiamo parlando?

[victor8872]

circa 3600

[optime]

Originariamente inviato da victor8872
circa 3600

da dove leggi la lista dei destinatari?

[victor8872]

da un db access

[optime]

Originariamente inviato da victor8872
da un db access

ma nel codice che hai postato, dove sono i dati? non vedo query...