Spedire email con JScript

[dmd]

Mi hanno chiesto di scrivere un codice per mandare email con CDSYS su Win2003.
Ho scoperto poi che la pagina a cui è destinata è tutta scritta in Jscript.

Io in VBScript avrei fatto così:

sTo = "dest@email.it";
sFrom = "mitt@email.it";
sSubject = "Benvenuto !";
sMailServer = "127.0.0.1";
sBody = "prova prova :-)" ;

Set objMail = Server.CreateObject("CDO.Message");
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Sender = "staff@email.it"
.Subject = sSubject
.HtmlBody = sBody
End With
Err.Clear
on error resume next
objMail.Send
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing

ma da chiaramente errore (chiede il ";" dopo set in questa riga "Set objMail = Server.CreateObject("CDO.Message");" ) avendo in cima al codice la riga <%@ LANGUAGE = JScript %>

Come tradurlo in JScript?

[Sypher]

togli tutti i set, gli with,al metodo send aggiungi le parentesi (), al posto di nothing usa null,al posto di on error resume next try{}catch{}

[dmd]

si infatti avevo pensato a quello... non conosco il Jscript: devo togliere altro?
Mi posteresti il codice "ripulito"?

[dmd]

azz, sei velocissimo!!!

[Sypher]

sTo = "dest@email.it";
sFrom = "mitt@email.it";
sSubject = "Benvenuto !";
sMailServer = "127.0.0.1";
sBody = "prova prova :-)" ;

objMail = Server.CreateObject("CDO.Message");
objConf = Server.CreateObject("CDO.Configuration")
objFields = objConf.Fields

objFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")  = sMailServer
objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objFields.Update()
objMail.Configuration = objConf
objMail.From = sFrom
objMail.To = sTo
objMail.Sender = "staff@email.it"
objMail.Subject = sSubject
objMail.HtmlBody = sBody


objMail.Send()
objFields = null
objConf = null
objMail = null

na cosa del genere...non credo ti serva controllare l'errore sul send...in caso non la manda...i punti e virgola alla fine delle istruzioni sono omissibili ma metticeli

[dmd]

Grazie mille per la tua disponibilità.
Ti faccio sapere.

[dmd]

objFields.Update;

Microsoft JScript runtime error '800a01b6'

Object doesn't support this property or method

Provo a toglierlo?

[Sypher]

Originariamente inviato da dmd
objFields.Update;

Microsoft JScript runtime error '800a01b6'

Object doesn't support this property or method

Provo a toglierlo?

no avevo modificato ci vogliono le parentesi

[dmd]

ok funzia.
Grazie mille.