il servizio smtp non è un servizio sicuro......se ti colleghi con libero, prova ad impostare il tuo client di postacon un indirizzo mittente fasullo: vedrai che il msg arriverà comunque.
Per ovviare questi problemi, già da tempo i provider offrono l'uso di smtp solo se ti colleghi con loro....in questo modo si fa presto a venirti a prendere se non ti comporti onestamente.... 
..
Un'altra soluzione è quella di usare smtp con autenticazione...(non molto comune penso per la pesantezza del protocollo).
Non saprei perchè a te non funzioni......ti posto il mio codice:
codice:
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
Fields.Update
Dim Destinatari, Destinatario, Mittente, Oggetto, Testo
Destinataro= "pippo@pippo.com"
Dim eMail
Set eMail = CreateObject("CDO.Message")
Set eMail.Configuration=Config
eMail.From = "inventato@inventato.com
eMail.To = Destinatario
eMail.Subject = request.Form("subject")
eMail.HTMLBody = request.Form("message")
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()
eMail.Send()
Set eMail = Nothing
if (Err.number<>0 ) then
response.Write("Errore nell'applicazione")
response.Write(Err.description )
response.End()
end if
ciao
Rispondi quotando
