error '8004020f'

[freezone]

In seguito all'invio di una mail da script mi dà questo errore.

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") = "ip del server SMTP"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/cdoSMTPServerPort") = 25 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/cdoSMTPAuthenticate") = cdoBasic
Fields.Item("http://schemas.microsoft.com/cdo/configuration/cdoSendUserName") = "user@dominio.com"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/cdoSendPassword") = "password"
Fields.Update	

Dim Mail
Set Mail = CreateObject("CDO.Message") 
Set Mail.Configuration = Config
Mail.From = NomeMitt & " <" & EmailMitt & ">"
Mail.To = NomeDest & "<" & EmailDest & ">"
Mail.Subject = Oggetto
Mail.HTMLBody = Testo
Mail.Send()
Set Mail = Nothing
Set Config = Nothing