Ho provato con questo codice trovato in rete

codice:
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/smtpserver") = "smtp.tin.it"
' 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
' Assegna all'oggetto le proprietà necessarie
objMail.From = email ' Mittente
objMail.To = "xxx@hotmail.it" ' Destinatario
objMail.Subject = "prova" ' Oggetto
objMail.HTMLBody = "prova" ' Messaggio
' Invia l'email
objMail.Send()
Set objMail = Nothing
e mi da un errore generico 8004020f senza desrizione se sono in locale quale server smtp devo impostare ho telecom ho fatto bene ad impostare smtp.tin.it?