Salve a tutti, ho un problema con l'invio mail cdosysy.
Il seguente codice perso dal vademecum ed inserito in un form mi dà il seguente errore:

ADODB.Fields error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

alla riga:
Flds(cdoSendUsingMethod) = cdoSendUsingPort

Possibile? ma se il codice lo fornisce aruba come fa a non funzionare?
qui sotto il codice:


DIM iMsg, Flds, iConf

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

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

With iMsg
Set .Configuration = iConf
.To = "qui la mail del destinatario"
.From = "qui la mail del mittente"
.Sender = "miaemail@alice.it"
.Subject = "Titolo della mail"
.HTMLBody = "Contenuto vero e proprio della mail"
.Send
End With


grazie.
Ale