ho il seguente scritp per l'invio di email con cdosys però quando cerco di inviare email con la stessa estensione del sito utente@nomesito.it mi da il seguente errore:
error '8004020f'
come mai?

questo è il codice:
Dim Flds
Dim strHTML
Dim smtpserver

Const cdoSendUsingPort = 2

set ObjMail = CreateObject("CDO.Message")
set objConfig = CreateObject("CDO.Configuration")


Set objConfig = CreateObject("CDO.Configuration")

Set Flds = objConfig.Fields

' impostazioni dei campi di configurazione di CDOSYS per usare la porta 25 sul server SMTP

With Flds
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.nomesito.it"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
Flds.Update
End With

With ObjMail
' applico i settaggi
Set ObjMail.Configuration = objConfig
objMail.From = cstr(from)
objMail.To = cstr(toadress)
objMail.Subject = cstr(subject)
objMail.TextBody = cstr(body)
objMail.Send
End With

aspbbEmail = true
' Pulizia delle variabili
Set ObjMail = Nothing
Set objConfig = Nothing
Set Flds = Nothing
è un problema di spam? come posso risolverlo?
grazie