Errore CDOSYS - error '8004020f'

[edo72]

Ciao a tutti...

In fase di invio email se uno o più indirizzo non esistono (o sono errati) il server smtp di appoggio mi restituisce l'errore riportato.

Vorrei fare in modo che il server anzichè inviarmi un errore ASP inviasse una mail all'indirizzo definito come sender... in questo modo l'applcazione non subirebbe alcun blocco/rallentamento.

In più, anche se questo non è il forum giusto, come potrei fare in modo che mano a mano che avvengono gli invii si aggiorna una lista in automatico... ho dato un'occhiata alla libreria Ajax di mootols ma niente!

Grazie
Edo

[mosquito70]

Ho lo stesso problema indicato nel post precedente. Premetto che il codice che utilizzo (e che posto di seguito) è applicato a due applicativi diversi che "girano" sulla stessa macchina. Ad uno solo di questi si verifica il problema, quindi presumo sia dovuto a qualche indirizzo di mail che non consente l'invio da questo smtp.

Siccome il sistema che dà questo problema, invia circa 300 mail, non posso certo spulciarmi una per una le mail per capire qual'è quella/e che dà l'errore, pensavo di intercettare l'errore e di non bloccare l'invio.

Come si fa?

Purtroppo è urgente...

Grazie in anticipo
Ciao

Questo il codice

                Dim strricecodifisc
                strURL = Request.ServerVariables("URL")

                Dim iMsg
                Dim iConf
                Dim Flds
                set iMsg = CreateObject("CDO.Message")
                set iConf = CreateObject("CDO.Configuration")
                Set Flds = iConf.Fields

                    Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                    Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                    ' username e password
                    Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxx@yyyy.it"
                    Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ccccc"
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="SMTP.INET.IT"
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
                    Flds("http://schemas.microsoft.com/cdo/configuration/connectiontimeout") =10
                    Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
                Flds.Update

                With iMsg
                Set .Configuration = iConf
                    .To = vc_descindiemai
                    .From = vc_descindiemaimitt
                    .Bcc = ""
                    .Subject = "Bollettino n. "&vc_numeboll
                    .CreateMHTMLBody vc_pathcomplinvihtml

                    if vc_pathfileatta <> "" then
                        .AddAttachment server.mappath(vc_pathfileatta)
                    end if

                .Send
                End With