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:
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 erroricodice: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
qualcuno riesce a capire il motivo?
Grazie
Rispondi quotando
