Ho riscontrato dei problemi con un'applicazone in .asp che gestisce circa 1000 indirizzi mail. Ho diviso l'invio in 30 gruppi da 30 mail ciascuno, per evitare problemi di timeout e problemi di ecceso di mail nei gruppi. Ho inviato oggi la newsletter ed il programma mi ha restituito 8 conferme di invio mail e poi nn ho ricevuto + niente di risposta. Per spiegarsi meglio, ho fatto in modo che ogni volta che invia 1 gruppo mi risponde al mio indirizzo con una mail all'indirizzo da cui le invio. Vorrei sapere se in qualche modo il server dopo un po di operazioni si blocca, o se ha dei tempi brevi di operazione e quindi nn finisce l'operazione per tutti e 30 i gruppi.
Riporto il codice dellla pagina .asp che spedisce ai gruppi, sperando che possa essere utile. Grazie Marcojavascript:smilie('')
Piango
<%
Dim tipo, email, mittente, oggetto
Dim BCC, conta
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
If (rs.eof = true) AND (rs.bof = true) then
response.write "Non ho trovato nessun indirizzo"
else
rs.movefirst
Conta = 0
BCC = ""
do until rs.eof
do until (Conta > 30) OR (rs.eof = true)
BCC = BCC & rs("email") & "; "
Conta = Conta + 1
rs.movenext
loop
'#### CREO LA MAIL
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.bingobongo.it"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' ************************************ DA MODIFICARE
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "account"
' ************************************ DA MODIFICARE
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passwordaccount"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
objMail.To = mittente
objMail.From = mittente
objMail.Bcc = BCC
objMail.Subject = oggetto
'*** Verifico il formato mail
if tipo="html" then
objMail.HTMLBody = email
else
objMail.TextBody = email
end if
objMail.Send
set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
Conta = 0
BCC = ""
loop
end if
set cn = nothing
set rs = nothing
%>account :master:
Rispondi quotando
