Ciao a tutti, prima di migrare su server windows 2008 il seguente script funzionava bene:
codice:
        
Dim Mail
        set Mail = server.CreateObject("CDO.Message")
        With Mail
        .From = mittente
        .To = destinatario
        .Subject = titolo
        .TEXTBody = corpo
        .TextBodyPart.Charset = "utf-8"
        .Send
        end With
        set Mail=nothing
Ora invece mi da errore e nello specifico:

CDO.Message.1 error '8004020d'
At least one of the From or Sender fields is required, and neither was found.
/english/include/inc_utente.asp, line 29

Questo il codice con cui inviavo la mail al webamster ( line 29= MiaMail.Send() )

Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = UrlEcom
buckup = MailAdmin
MiaMail.To = buckup
MiaMail.Subject = "Nuovo iscritto"
MiaMail.HTMLBody = MailBody
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

Ora invece mi hanno dato indicazioni che devo inviarlo con una funzione del genere ma non riesco a farlo funzionare:

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.XXXX.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = "XXXXXXX"
Flds(cdoSendPassword) = "XXXXXXX"
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .HTMLBody = "<font face=verdana size=2>XXXXXXXXX</font>" & corpoMessaggio 

   .Send
End With
Mi dite per cortesia se questa sarebbe la strada per risolvere il problema o sono completamente fuori pista?
grazie in anticipo.
Il server è windows 2008 di aruba
grazie