Newsgroup: it.comp.www.asp
Titolo: Errore strano invio email

Ciao a tutti ragazzi,
sto testando uno script per l'invio dell'email su un sever... il seguente:
<%
On Error Resume Next
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
'.Fields("
http://schemas.microsoft.com/cdo/configuration/sendusername
") =
""
'.Fields("
http://schemas.microsoft.com/cdo/configuration/sendpassword
") =
""
Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserver
") =
"
mail.miositoxxx.com
"
' Porta SMTP
Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserverport
") =
25
' Porta CDO
Fields("
http://schemas.microsoft.com/cdo/configuration/sendusing
") = 2
' Timeout
Fields("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout
")
= 60
Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Recupero le variabili
inputMittente = "GIUSEPPE"  
inputMail ="pi...@ikkkit.iy"  
inputCorpo = "EMAIL DI PROVA!!"    
' Assegna all'oggetto le proprietà necessarie
objMail.From = "
in...@miositoxxx.com
" ' Mittente
objMail.To = "
pi...@miositoxxx.com
" ' Destinatario
objMail.Subject = "OGGETTO...." ' Oggetto
'objMail.TextBody = "Messaggio inviato da: Nome" & inputMittente & ",
Mail" & inputMail & ", Testo" & inputCorpo & ""
'Formato HTML
objMail.HTMLBody = "EMAIL DI prova dal web!!"
'Formato testo (scegliere)
'.TextBody = messaggio
'Invio di una pagina web
'objMail.CreateMHTMLBody "
http://www.ghjgh.it/test
"
'Invio con allegato
'.AddAttachment server.mappath("\test.pdf")
' Invia l'email
objMail.Send()
Set objMail = Nothing
If Err.Number <> 0 then
     NumeroErrore = Err.Number
     DescrizioneErrore = Err.Description
Response.Write("NUMERO ERRORE: " & NumeroErrore  & "<BR>")
Response.Write("DESCR ERRORE: " & DescrizioneErrore )
     else
 
     Response.Write("Email inviata correttamente")
     end if
%>
premetto che lo script funge.... è anche bene lo provato e riprovato in
lacale...
ma se provo ad inviare email a persone che non hanno lo stesso dominio del
server smtp (
miositoxxx.com
) mi da questo errore:
NUMERO ERRORE: -
2147220977
DESCR ERRORE: Uno o più indirizzi di destinatari sono stati respinti dal
server. Risposta del server: 554 : Relay access denied
allora pensando che fosse un problema di autenticazione alla casella ho
provato a mettere anche
Fields("
http://schemas.microsoft.com/cdo/configuration/sendusername
") =
"ee"
Fields("
http://schemas.microsoft.com/cdo/configuration/sendpassword
") =
"ee"
ma nulla da fare... penso quindi . che sia proprio una configurazione del
server ...
mi confermate questo.. o c'è qualche altro tentativo da fare....??
e se devo chiedere di far modificare qualche impostazione sul server di
posta.. che cosa devono cambiare...?
saluti e grazie mille
Giuseppe
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


[cut]
Sarà una cosa tipo: iis manager > server smtp > properties > access > relay 
restrictions > check box: "Allow all computer ...." o aggiungi quelli che 
servono in lista.
jjm