Non mi funziona non riesco a mandare email mi da questo errore:

error '8004020e'
/lpf/common/mail.asp, line 42

questo e ' il codice che uso :


Dim objMail, objConfig
'Crea l'oggetto email
Set objMail = 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") = "10.39.2.13"

'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 = request.Form("From") 'Mittente
objMail.To = Request.Form("To") 'Destinatario
objMail.Subject =Request.Form("Oggetto") 'Oggetto
objMail.HTMLBody =Request.Form("mail") 'Messaggio

'Invia l'email
objMail.Send()
Set objMail = Nothing

Grazie Claudio