azione on error

[diwla]

Ciao a tutti...
ho un ciclo do while che invia delle mail, per evitare che si blocchi se l'indirizzo è sbagliato ho inserito al suo interno on error resume next, se volessi fare delle azioni in caso di errore come posso fare? in protica ho messo un contatore che conta le mail inviate solo che questo viene incrementato anche se la mail non parte...

mailinviate = 0
Do While not rsutenti.eof
on error resume next
--- codice per l'invio dei messaggi ---
mailinviate = mailinviate + 1
rsutenti.movenext
Loop

ho provato ad inserire
on error mailinviate = mailinviate - 1
ma ovviamente va in errore...

[santino83]

on error resume next
..
..
..
..
mail.send <--- qui si dovrebbe verificare l'errore

if err.number>0 then
'azioni da fare in caso di errore
end if

loop

[diwla]

infatti l'errore lo da quando faccio il send,
ho provato a fare come mi hai consigliato ma non è cambiato nulla...

mailinviate = 0
Do While not rsutenti.eof
on error resume next
--- codice per l'invio dei messaggi ---
if err.number = 0 then
mailinviate = mailinviate + 1
end if
rsutenti.movenext
Loop

così dovrebbe incrementare solo nel caso non ci siano errori... invece incrementa lo stesso!

[viki1967]

http://asp.html.it/articoli/leggi/78...nvio-di-email/

[diwla]

probabilmente non avevo salvato la pagina o non si era aggiornata perchè ho riprovato ed ha funzionato...

Grazie...

[santino83]

Originariamente inviato da diwla
probabilmente non avevo salvato la pagina o non si era aggiornata perchè ho riprovato ed ha funzionato...

Grazie...

con quale metodo ha funzionato?

[diwla]

if err.number = 0 then
mailinviate = mailinviate + 1
end if

[diwla]

ho un'altro problemino...
durante l'invio registro sul db quando il messaggio è stato inviato a quell'utente in modo che se per qualche motivo si blocca il processo inviando di nuovo parte da dove era rimasto:

Do While not rsutenti.eof
on error resume next
rsinviate.Open "SELECT * FROM RegistroInvii WHERE NewsletterID = " & nid & " AND UtenteID = " & rsutenti("UtentiID"), dbc, 3, 3

if not rsinviate.eof then
giainviate = giainviate + 1
else
Set objMail = Server.CreateObject("CDO.Message")
.............. codice mail
Set objMail = nothing

if err.number = 0 then
bloccosend = bloccosend + 1
rsreginvii.Open "SELECT * FROM RegistroInvii", dbc, 3, 3
rsreginvii.AddNew
rsreginvii("NewsletterID") = nid
rsreginvii("UtenteID") = rsutenti("UtentiID")
rsreginvii("DataInvio") = Date()
rsreginvii.Update
rsreginvii.Close
else
toterr = toterr + 1
end if

end if
rsinviate.close
rsutenti.movenext
Loop

... in pratica quando va in errore invece di incrementare toterr incrementa giainviate...
come se quando la condizione if err.number = 0 è falsa non entra nell'else...

[diwla]

visto che non risponde nessuno provo a spiegare meglio:

Do While not rsutenti.eof
on error resume next
--- codice per l'invio dei messaggi ---
if err.number = 0 then
mailinviate = mailinviate + 1
else
mailerror = mailerror + 1
end if
rsutenti.movenext
Loop

alla fine del ciclo questi sono i risultati
rsutenti.recordcount = 100
mailinviate = 98
mailerror = 0

di questi 100 indirizzi ce ne sono effettivamente 2 scritti con uno spazio in mezzo quindi non validi... come mai mailerror non viene incrementato?