Ragazzi dovrei inviare delle news.
Il problema però è che se per esempio inviao info@dominio.it la mail arriva ma se invio a prova@virgilio.it non succede nulla...
Posto il codice così mi dite se è un problema di codice o di altro:








<%
'Invio messaggi con CDOSYS


strFrom = Request.Form("From")
strSubject = Request.Form("subject")
strBody = Request.Form("body")


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

'apertura database
objRec.Open "mailing_List", objConn, adOpenKeyset, _
adLockReadOnly, adCmdTable


Response.Write("<center><h3>Invio messaggi in corso</h3></center>")



'scorro gli indirizzi
While Not objRec.EOF

invioA = objRec("email")
invioDa = "NOME DOMINIO"



'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf
'on error resume next
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.nomedominio.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = "info@nomedominio.it"
Flds(cdoSendPassword) = "passwordDELLAmail"
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDa
.Sender = invioDa
.Subject = strsubject
.textBody = "Testo del messaggio: " & vbCrLf & strbody & ""
.Send
End With



Set iMsg = nothing
Set iConf = nothing

'conferma invio
Response.Write "Messaggio inviato a " & objRec("EMail") & "!
"

'prossimo record
objRec.MoveNext
WEND

objRec.close
set objRec = nothing

objConn.close
set objConn = nothing

Response.Write("<center><h3>Messaggi inviati!</h3><center>")
%>