Salve a tutti, sono diversi giorni che sto ammattendo senza trovare una soluzione per gestire un problema con CDO e IIS 7.

Di seguito posterò del codice che è perfettamente funzionate su win2003 server con IIS6

--------------------------------------------------


Set myMail=CreateObject("CDO.Message")

Set myConfig = Server.createObject("CDO.Configuration")

' Imposta le configurazioni
With myConfig

' Server SMTP di uscita
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"


' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60



.Fields.update

End With


Set myMail.Configuration = myConfig

myMail.Subject="riepilogo ordine " & pOrderPrefix&"/"&pIdorder

myMail.From="xxx@xxx.it"

myMail.To= "yyy@yyy.it"
myMail.CreateMHTMLBody "http://www.xxx.it/xxx-xxx/riepilogo-ordine.asp?idOrder="&pIdOrder

'myMail.HTMLBody = BodyMsg

myMail.Send

set myMail=nothing

------------------------------------


ho cercato dei tutorials che mi permettessero di adattare il codice a IIS 7 su win 2008 server, ad esempio questo funziona in parte, ossia funziona solo nel caso in cui mittente e destinatario siano gli stessi e non ne vuole sapere di di spedire pagine (con CreateMHTMLBody) o allegati (con AddAttachment) e restituisce il seguente errore:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: '.CreateMHTMLBody '


----------------------------


Set cdoConfig = Server.createObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "xxxxxx"
.Update
End With


Set cdoMessage =CreateObject("CDO.Message")

With cdoMessage
Set.Configuration = cdoConfig
.From = "xxx@xxx.it"
.To = "xxx@xxx.it"
.Subject = "riepilogo ordine " & pOrderPrefix&"/"&pIdorder
.TextBody = BodyMsg
.CreateMHTMLBody "http://www.xxx.it/xxx-xxx/riepilogo-ordine.asp?idOrder="&pIdOrder
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing

----------------------------

c'è qualcuno che sa darmi indicazioni per uscire da questa palude?

Grazie

Roberto