Ciao a tutti.
Utilizzo lo script sotto da quasi un anno ed è sempre stato impeccabile.
Oggi provando ad inviare la newsletter settimanale mi da il seguente errore:

CDO.Message.1 error '80004005'

Unspecified error

/admin/newsletter/invio_mailing.asp, line 69


la linea 69 è

.Send()

qualkuno sa darmi qualke dritta?

P.S. server aruba win


codice:
<%Response.buffer = False%>





<% 
' sei amministratore?
If str_users_authority <> "admin" Then
   Response.Redirect("../../login.asp?mode=noAdmin")
End If
%>

<%
id=request.QueryString("id")
if id = "" then
%>
<table width="100%">
  <tr>
    <td>
	Spiacente non hai specificato un riferimento per l'invio di una newsletter.

	Torna indietro e scegline uno.
	</td>
  </tr>
</table>
<%
else



Server.ScriptTimeOut = 1000

Set rs = Server.CreateObject("ADODB.Recordset") 

Conn.Open strConn
sql = "SELECT * FROM tbl_mailinglist"
rs.Open sql, conn 

'**************************************************************
i = 0
do until rs.EOF
invioA = rs("iscritto")

' Creo la mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

' invio mail	
mittente = "IO <mia@email.it>"
oggetto = ".:: Newsletter ::." 
'messaggio = "Invio con CDOSYS" 

With iMsg 

'Assegnazione delle configurazioni 
Set .Configuration = iConf 

.To = invioA
.From = mittente 
.Bcc = ""
.Subject = oggetto 

'Invio di una pagina web 
.CreateMHTMLBody "http://www.miosito.it/newsletter_nuova.asp?id=" & id & "&user=" & invioA

'Invia l'email 
.Send() 

i = i + 1
end with 

set Flds = Nothing 
set iConf = Nothing 
set iMsg = Nothing 
rs.MoveNext
loop
rs.close 
Set rs = Nothing 

response.write (i & "Email inviate con successo.")%>
Clicca qui per tornare alla lista
<%end if%>