hai ragione non ho controllato e mi scuso per ho provato ora a inserirlo
codice:
        invioA = "DESTINATARIO"

        invioDa = "MITTENTE"



        DIM iMsg, Flds, iConf

        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields

        Flds(cdoSendUsingMethod) = cdoSendUsingPort
        Flds(cdoSMTPServer) = "smtp.DOMINIO.it" 
        Flds(cdoSMTPServerPort) = 25
        Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
        Flds.Update

        With iMsg
        Set .Configuration = iConf
            .To = invioA
            .From = "TEST"
            .Sender = invioDa
            .Subject = "Contatto dal TEST."
            .TextBody = "TEST"
            .Send
        End With
Con il suddetto codice mi ritorna questo errore, ma non mi sembra abbia molto senso


ADODB.Fields</font> <font face="Arial" size=2>error '800a0bb9'</font>



<font face="Arial" size=2>Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.</font>

Grazie mille