Salve a tutti, per alcuni siti uso asp per inviare piccole newsletter ad iscritti
Fino a qualche tempo fa nessun problema, adesso su uno dei siti mi da un problema:
error '8004020f' /admin/utenti_message2.asp, line 113
la linea 113 è l'invio della mail, posto il codice:
codice:
csql = "SELECT * FROM utenti WHERE admin = false" 
        Set crs = Server.CreateObject("ADODB.Recordset")
        Set crs = Conn.Execute(csql)
        
        'Inserisco dentro la variabile bcc tutti i destinatari
        x = 0
        do until crs.eof
        x = x + 1
        if x = 1 then
        bcc = crs("email")
        else
        bcc = bcc & ", " & crs("email")
        end if
        crs.moveNext
        loop
        crs.close
        Set crs = Nothing
        
         'creo l'oggetto
        set oMail= server.CreateObject("CDO.Message")
        
        'settaggi mail
        Set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields

        Flds(cdoSendUsingMethod) = cdoSendUsingPort
        Flds(cdoSMTPServer) = "smtp.silvanosoppelsa.com"
        Flds(cdoSMTPServerPort) = 25
        Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
        Flds.Update
        
        oMail.Configuration = iConf
        
        
        'Mi costruisco il body della mail in formato HTML
        sBodyHTML = "<HTML>"
        sBodyHTML = sBodyHTML & "<HEAD>"
        sBodyHTML = sBodyHTML & "</HEAD>"
        sBodyHTML = sBodyHTML & "<BODY bgcolor=""#ffffff"" text=""#000000"" link=""#ffcc00"" vlink=""#ffcc00"" alink=""#ff0000"">"
        sBodyHTML = sBodyHTML & "<font face=""verdana"" size=""2"">"
        sBodyHTML = sBodyHTML & "Ciao, ci sono news da Silvano Soppelsa:<br />"
        sBodyHTML = sBodyHTML & titolo & ", data: " & dataz & "<br />"
        sBodyHTML = sBodyHTML &  descrizione &"<br />"
        sBodyHTML = sBodyHTML & "<br />"
        sBodyHTML = sBodyHTML & "Saluti da <a href=""http://www.silvanosoppelsa.com/"">Silvano Soppelsa Scultore</a><br />"
        sBodyHTML = sBodyHTML & "</font>"
        sBodyHTML = sBodyHTML & "</BODY>"
        sBodyHTML = sBodyHTML & "</HTML>"

        'metto il from
        omail.from="Silvano Soppelsa <silvano.soppelsa@yahoo.it>"
        'metto il destinatario
        'omail.To="Iscritti Newsletter<silvano.soppelsa@yahoo.it>"
        omail.To="Iscritti newsletter<tosk@alfagestioni.com>"
        'copia carbone
        omail.bcc = bcc
        'omail.bcc = "tosk@alfagestioni.com"
        'oggetto mail
        omail.Subject = "News da Silvano Soppelsa: " & titolo
        'imposto il bodyhtml
        omail.HTMLBody = sBodyHTML 
        'spedisco
        omail.Send()
        Set oMail = Nothing
Se non metto il .bcc non da errore, se lo metto va in errore (ma naturalmente senza le mail nella copia carbone non ci sono i destinatari della newsletter). Quel che è strano è che fino a poco tempo fa non dava errori
qualcuno riesce a capire il motivo?
Grazie