rilevare errore mail spedita

[DarioMarco]

salve a tutti, se io spedisco una mail con cdosys, ho notato che se la mail non la spedisce mi da un semplice errore asp qualcosa tipo CDO.Message.1 o altro, è possibile forzare il programma a restituire un errore personalizzato, e se vengono spedite più mail, sapere quale mail non ha spedito e per quale motivo???

Grazie, ciao.

[agenti]

prima di ".send"

scrivi : on error resume next

if err.number > 0 then
response.write "errore invio"
end if

stai attento però, questo vale solo se non sono presenti altri errori nello script prima dell'invio.

altrimenti dovresti usar il metodo

Set objErrorInfo = Server.GetLastError
che indica l'ultimo errore creato.

[DarioMarco]

Perdonami, e se io volessi inviare una serie di email, tipo newsletters, con questo codice:

//connessione al db
set connessione = server.createobject("ADODB.Connection")
...
//creo recordset
set recordset = Server.createobject("ADODB.Recordset")

//raccolgo i campi
oggetto=request("oggetto")
...

//Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
//Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
//Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

With iMsg

//Assegnazione delle configurazioni
Set .Configuration = iConf

//selezioni tutti gli utenti dal db
set recordset = connessione.execute("select * from utenti)

do while not recordset.eof

.to = recordset("email")

on error resume next

if err.number > 0 then
response.write "errore mail id:"&recordset("id")
end if

.send()

...

se dovesse incontrare un'errore, lo script si ferma???
e se imposto nuovamente err.number a 0 e faccio ripartire il ciclo da dove si è fermato???

scusa il ritardo, grazie, ciao.