mail non le manda più

**victor8872** · 09-09-2013, 09:33

Ciao a tutti
da anni uso questo script per mandare mail a circa 3000 utenti.

Da ieri sto notando che le mail non le manda più.
Magari è un blocco momentaneo (aruba)

Pero' magari mi dareste un occhio ?

Grazie

<%
Server.ScriptTimeout = 1500
%>
<%

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
%>

**Roby_72** · 09-09-2013, 10:23

Quesat funziona, appena provata. Personalizzala:

codice:

'Oggetto
oggetto = "Test invio"

'Corpo
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">"
HTML = HTML & "<html>" 
HTML = HTML & "<head>" 
HTML = HTML & "<meta http-equiv=Content-Type" 
HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>Spedizione HTML</title>" 
HTML = HTML & "</head>" 
HTML = HTML & "<body style=""color:#000;font-family:verdana;font:12px;"">"
HTML = HTML & "

Nuova e-mail</p>"
HTML = HTML & "</body>" 
HTML = HTML & "</html>" 

Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
With iMsg
	Set .Configuration = iConf
	.From = "tua_mail_dominio_su_aruba"
	.To = "tua@email"
	.Subject = oggetto
	.HTMLBody = HTML
	.Send
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

Roby

**victor8872** · 12-09-2013, 00:22

ciao grazie per la risposta
ma vedo che le mail non arrivano subito

ci impiegano ore o addirittura giorni

una volta invece arrivavano subito

non è che è un problema di aruba?

grazie

**Roby_72** · 12-09-2013, 00:30

Penso proprio di si...
Chiedi loro se hanno un problema con il tuo server.

Roby

**victor8872** · 12-09-2013, 00:34

ora chiedo
grazie ancora

**victor8872** · 12-09-2013, 13:12

Ciao mi sono accorto di una cosa
questo è lo script che DA ANNI funzionava (con questo script mandavo circa 3500):

<%
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
%>

come ti dicevo ieri adesso non funziona più.
Nel senso che fino a 2-3 mail le manda
ma quando le seleziono tutte e 3500 mi appare questa scritta:

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/public/gestionali_scuola_dansalsa/newgestionale_solo_spedizione_mail_e_prelievo_cell x2/spedisci_mail.asp, line 39

Ti sarei molto grato se mi aiutassi a risolvere sto problema.
Io lavoro con le mail, e tutta sta faccenda mi sta creando davvero problemi

Grazie infinite

**victor8872** · 12-09-2013, 13:13

ti ribadisco anche
che questo errore lo ha iniziato a dare cosi all'improvviso
senza che io abbia toccato nulla

grazie

**Roby_72** · 13-09-2013, 10:13

L'errore vuol dire che uno dei destinatari non c'è.
Ovvero hai uno dei record che contengono le email che è vuoto.

Roby

**victor8872** · 13-09-2013, 11:51

il problema è che non riesco a capire quale record non va bene

sto impazzendo

**Roby_72** · 13-09-2013, 11:56

Ci deve essere un record vuoto.

Roby

Discussione: mail non le manda più

Strumenti discussione

Ricerca discussione

Visualizza

mail non le manda più

Permessi di invio