problema cdosys (Arguments are of the wrong type)

[Mr.Fabio]

ADODB.Fields error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/areariservata/formcdosys.asp, line 78

la linea in rosso è la 78:

la cosa che faccio prima di queste righe é settare le variabili destinatario, inviaDA, oggetto ecc...., dopo:

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 = destinatario
   .From = invioDa
   .Sender = invioDa
   .Subject = oggetto
   .TextBody = messaggio
   .AddAttachment (cartella & "\" & fileAllegato)	
   .Send
End With

Ieri mi funzionava tutto regolarmente oggi non va

[wegawhite]

Prova così:

'INVIO CON CDOSYS
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "tuaemail@email.it"
miaMail.To = EmailDestinatario
miaMail.Subject = "email cdosys"
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = Nothing