Script per CDOSYS

[Partisan75]

Ciao a tutti, prima di migrare su server windows 2008 il seguente script funzionava bene:

        
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:

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

[marino51]

i procedimenti usati, il tuo e quello che ti hanno suggerito, sono validi,
nel secondo aggiungi i parametri di connessione, che nel primo erano un default
io utilizzo un file ".ini" per ciascun provider smtp, dove specifico i parametri di connessione / autenticazione,
quelli che seguono sono i parametri per utilizzare il provider gmail

cdoSendUsingMethod = 2
smtpServerName  = smtp.gmail.com
smtpServerPort  = 465
smtpConnectionTimeout = 60
smtpAuthenticate = 1
smtpUseSSL  = True
smtpStartTLS  = False
AuthenticatedSenderName = CAMBIAMI@gmail.com 
AuthenticatedSenderPass = CAMBIAMI
MAIL_FROM  = CAMBIAMI@gmail.com

questo è il codice che li applica, ma come detto i metodi che usi tu vanno altrettanto bene,
verifica solo che utilizzi tutti i parametri necessari ed il loro valore

(Flds(cdoSendUsingMethod) = cdoSendUsingPort non mi sembra corretto)

Sub SendByNetworkServer()
 objMSG.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/con...tion/sendusing") = cdoSendUsingMethod
 objMSG.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = smtpServerName
 objMSG.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/con...smtpserverport") = smtpServerPort 
 objMSG.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/con...nectiontimeout") = smtpConnectionTimeout
 objMSG.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/con...tpauthenticate") = smtpAuthenticate
 if smtpAuthenticate <> 0 then
  objMSG.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/con...ion/smtpusessl") = smtpUseSSL
  objMSG.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/con...n/smtpstarttls") = smtpStartTLS
  objMSG.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/con...n/sendusername") = AuthenticatedSenderName
  objMSG.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/con...n/sendpassword") = AuthenticatedSenderPass
 end if
 objMSG.Configuration.Fields.Update
End Sub

ps il codice che ho postato è sicuramente funzionante

[Partisan75]

Grazie mille, ci lavorerò sopra

[jet]

Io farei così

CreateObject("CDO.Message")

invece di

server.CreateObject("CDO.Message")