mail con asp

[minnie71]

Ciao,
sto mandando una mail a tutti i miei clienti in automatico, questi dovrebbero essere 7, ma ne spedisce solo 3. Non è che c'è una limitazione alle mail che può spedire automaticamente?

Do While NOT RsCL.EOF
sNominativo=RsCL("CONOMINATIVO")
sMail=RsCL("COMAIL")
'---Preparo la mail da Spedire---
'Oggetto NewMail
Dim objMail
set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "MIA MAIL"
objMail.Bcc = "MAIL PER CONOSCENZA NASCOSTA"
objMail.To = sMail
objMail.Subject = "Informativa per i Clienti"
sCorpoLettera ="

<TABLE border=1 width='100%'>"
sCorpoLettera = sCorpoLettera + "<tr><td>"
sCorpoLettera = sCorpoLettera + "<font size=1>Gentile " & sNominativo & "</font>"
sCorpoLettera = sCorpoLettera + "</td></tr>"
sCorpoLettera = sCorpoLettera + "<tr><td>"
sCorpoLettera = sCorpoLettera + "<font size=1>" & sTestoLettera & "</font>"
sCorpoLettera = sCorpoLettera + "</td></tr>"
sCorpoLettera = sCorpoLettera + "</table>"
objMail.BodyFormat = 0 
objMail.MailFormat = 0 
objMail.Body = sCorpoLettera 
'NON COMMENTARE!
Response.Write (sCorpoLettera)
objMail.Importance=2
objMail.Send
'Pulizia
set objMail = Nothing
'--------------------------------
RsCL.MoveNext
loop
RsCL.Close
Set RsCL = Nothing
Response.Redirect("Contatti.asp?tipo=GD")

Sembra giusto, ma non le spedisce.
Sapete aiutarmi?
Grazie

[Mems]

Ti da errore?

[minnie71]

No, spedisce solo 3 mail invece di 7!!!

[Mems]

Do While NOT RsCL.EOF
sNominativo=RsCL("CONOMINATIVO")
sMail=RsCL("COMAIL")
response.write " - " & sNominativo & " " & sMail & "
" ' <--- vediamo un po i destinatari...
'---Preparo la mail da Spedire---
'Oggetto NewMail
Dim objMail
set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "MIA MAIL"
objMail.Bcc = "MAIL PER CONOSCENZA NASCOSTA"
objMail.To = sMail
objMail.Subject = "Informativa per i Clienti"
sCorpoLettera ="

<TABLE border=1 width='100%'>"
sCorpoLettera = sCorpoLettera + "<tr><td>"
sCorpoLettera = sCorpoLettera + "<font size=1>Gentile " & sNominativo & "</font>"
sCorpoLettera = sCorpoLettera + "</td></tr>"
sCorpoLettera = sCorpoLettera + "<tr><td>"
sCorpoLettera = sCorpoLettera + "<font size=1>" & sTestoLettera & "</font>"
sCorpoLettera = sCorpoLettera + "</td></tr>"
sCorpoLettera = sCorpoLettera + "</table>"
objMail.BodyFormat = 0 
objMail.MailFormat = 0 
objMail.Body = sCorpoLettera 
'NON COMMENTARE!
Response.Write (sCorpoLettera)
objMail.Importance=2
objMail.Send
'Pulizia
set objMail = Nothing
'--------------------------------
RsCL.MoveNext
loop
RsCL.Close
Set RsCL = Nothing
' Response.Redirect("Contatti.asp?tipo=GD")  <-- per ora commento il redirect...

[minnie71]

quello lo ha già fatto, non è che è troppo veloce e non riesce a spedirle? esiste una sleep o una pausa da inserire tra uan mail e l'altra?

[Mems]

Originariamente inviato da minnie71
quello lo ha già fatto, non è che è troppo veloce e non riesce a spedirle? esiste una sleep o una pausa da inserire tra uan mail e l'altra?

Non è quello il problema.
Controlla che le email che ti stampa siano tutte valide.
Commenta anche il redirect per ora.

[minnie71]

Già commentato la redirect, che forse non farò più, e messo in visualizzazione la mail che spedisce e giustamente le vedo tutte e 7

[Mems]

Il server è il tuo pc locale?

[minnie71]

si, sia spmt che webserver sono sul mio portatile

[mosquito70]

se cerchi sul forum, si parlava di questo problema, relativamente ad alcuni domini di posta (tipo tiscali, etc...) che non ricevono le mail inviate se non settando alcune impostazioni sul proprio server

Purtroppo non ho tempo per cercarlo.
Il mio consiglio, per provare è quello di modificare gli indirizzi delle mail che non ti partono (immagino saprai quale sono ) e sostituirli con quelle che funzionano.

CHiaramente è solo per test, ma almeno capisci se il problema è la tua procedura o l'indirizzo/dominio di destinazione

Facci sapere


ps. io utilizzo una procedura Pl/sql di Oracle per inviare le mail...