Errore CDO

[fox80129]

salve ragazzi,
Ho uno script per inviare mail in formato html ma sto ricevendo questo errore dal server

Microsoft VBScript runtime error '800a01b6'

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


Questo è il codice...spero che possiate darmi qualche consiglio.


Set objMail = Server.createObject("CDO.Message") ' Create Mail Object
Set objConfig = Server.createObject("CDO.Configuration") ' Check
Configuration Object

With objConfig ' Configuration
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
'mail.test.com"'"smtp.test.com" ' INSERT YOUR SMTP
ADDRESS
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25 ' SMTP PORT
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")
= "C:\inetpub\mailroot\pickup"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60 ' Timeout
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "localhost"
.Fields.update
End With
with objMail
Set objMail.Configuration = objConfig
For count = 1 to Records
.From = "fox@test.com"
.To =Emails(count)' Request.Querystring("Email")
.Subject = "Your Newsletter "
.MimeFormatted = True
.CreateMHTMLBody
=("http://www.test.com/Newsletter1.htm")
.Send ' Send 2nd Email
Next
end with 'end objMail with
Set objMail = Nothing
Set objConfig =Nothing

[maximum]

Sei sicuro che il componente per l'invio mail (questo che stai usando per intenderci), sia installato sul server?

[fox80129]

Il server è windows 2003 quindi dovrebbe supportare nativamente CDOSYS.

[maximum]

Consiglio: usa direttamente lo script per CDOSYS.

[fox80129]

Grazie per il consiglio...però vorrei provare a risolvere l'errore su questo script.
Anche perchè tutte le altre parti dello script sembrano funzionare bene.
Mi da l'errore solo su questo comando:
'CreateMHTMLBody'