Problema di invio mail con cdo

[ResianTaxidrive]

Utilizzo questo codice per inviare la posta.

 
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoSendUsingExchange = 3

Set Message = CreateObject("CDO.Message")

With Message.Configuration.Fields

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.posta.it"  


    .Update
  End With

  With Message
 .from=ecc
 ecc

 end with

e solo in un certo server ottengo questo messaggio di errore.

CDO.Configuration.1 (0x80040154)
Interfaccia non registrata.

Non capisco cosa voglia dire, è sbagliato l'utilizzo di cdoSendUsingPort? Mancano delle autenticazioni?

[Fichico]

la porta per l'invio mail tramite SMTP è la 25

[ResianTaxidrive]

Penso che prenda il 25 di default. Dici che sia necessario specificare?