errore invio email

[simones70]

salve,
qualcuno sa dirmi perchè ho il seguente erro re con il codice sottoriportato?
-----------------
error '8004020f'
-----------------

codice

----------------------
Dim objCDOSYSCon,objCDOSYSMail,strSmtpServer
strSmtpServer="smtp.eberry.it"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "<" & news_email & ">"
objCDOSYSMail.To = "<" & f_email & ">;<"& news_email & ">;<sergio@sergiobagni.it>"
objCDOSYSMail.Subject = news_titolo
objCDOSYSMail.HTMLBody = news_testo

If NOT strSmtpServer = "" Then objCDOSYSMail.Send
Set objCDOSYSMail = Nothing

-----------------------

[-AA-]

Sicuro che hai CDOSYS?

CDONTS o CDOSYS?