Problema invio email

[skawomdee]

Salve a tutti ho questo problema:ho creato una struttura per l'invio tramite email di un ordine d'acquisto; mi spiego meglio: si va sul sito , si indicano i prodotti che si vogliono comprare, si compila un form ed ala fine viene spedita una mail con i dati dell'acquisto ma il risultato è questo:
Microsoft VBScript runtime error '800a01b6'

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

/ordine.asp, line 536
il codice è questo:

<%'invio ordine per email

dim strMailServer, strRecipients, strSender, strSubject, strMessage

'strMailServer = "smtp.marinodiprinzio.com"
strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder 'QUI INSERISCE L INDIRIZZO DEL CLIENTE E IL TUO CHE DEVI METTERE NELLE VARIABILI
strSender = "skawomdee@inwind.it" 'QUI INSERISCE IL TUO COME MITTENTE
strSubject = "Ordine n." & IDOrdine
strMessage = "<font face='Arial' size='2'>TUO NOME

"
strMessage = strMessage & "" & Session("SchedaClienteLibreria") & "

"
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & "

"

for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "<u>Articolo numero: " & i & "</u>
"
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & "
"
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & "
"
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & "
"
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & "
"
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & "
"
next

strMessage = strMessage & "
"
strMessage = strMessage & "SubTotale : " & Importo & "
"
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & "
"
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & "
"
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & "</font>"

Set objMail = Server.CreateObject("CDO.Message")
'objMail.ServerAddress = strMailServer
objMail.From = "smtp.marinodiprinzio.com"
objMail.To = strRecipients
objMail.Subject = strSubject
'objMail.Bodyformat=0
'objMail.Mailformat=0
(linea 536) objMail.Body = strMessage


objMail.Importance = 1

on error resume next '## Ignore Errors

objMail.send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & ""
End if

%>

In realtà il metodo era un CDONTS ma con Aruba mi pare che non funzioni.
Grazie per la risposta.

[weppos]

Hai mischiato sintassi di CDONTS con sintassi di CDOSYS.
Verifica quale hai dei due oggetti.

[lupo1978]

SCUSATE ho lo stesso problema di skawomdee,con aruba va anche a me solo con cdo.message,sapete aiutarmi dicendomi come andrebbero fatte le correzioni per l'invio delle email,ache con l'esempio riportato?

[weppos]

Originariamente inviato da lupo1978
SCUSATE ho lo stesso problema di skawomdee,con aruba va anche a me solo con cdo.message,sapete aiutarmi dicendomi come andrebbero fatte le correzioni per l'invio delle email,ache con l'esempio riportato?

Ma vuoi sapere come usare CDOSYS con aruba?

[lupo1978]

la stringa di skawomdee come la mia riportava cdonts,solo che con aruba non funziona,se possile vorrei sapere come adattare quel parte di codice per far inviare cdonts con aruba,visto che funziona solo con cdo.message,grazie

[weppos]

Originariamente inviato da lupo1978
la stringa di skawomdee come la mia riportava cdonts,solo che con aruba non funziona,se possile vorrei sapere come adattare quel parte di codice per far inviare cdonts con aruba,visto che funziona solo con cdo.message,grazie

Per CDONTS (aruba o meno) ecco un esempio http://www.weppos.com/asp/script_sho...ipt=659&cat=19 e la spiegazione della sintassi http://www.weppos.com/asp/script_sho...ript=79&cat=19

Ogni tanto però usate il motore di ricerca del forum.
Sono argomenti trattati alla nausea.

[lupo1978]

grazie tante ma adesso sto cosi:
Dim objMail
529 Set objMail = CreateObject("CDONTS.NewMail")
'objMail.ServerAddress = strMailServer
objMail.From = "SMTP.MARIOROSSI.COM"
objMail.To = strRecipients
objMail.Subject = strSubject
objMail.Bodyformat=0
objMail.Mailformat=0
objMail.Body = strMessage
objMail.Importance = 1

objMail.Importance = 1

on error resume next '## Ignore Errors

objMail.send
MI APPERE SU SERVER ARUBA:
Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDONTS.NewMail'

/ordine.asp, line 529
SAI AIUTARMI PE FAVORE GRAZIE!

[weppos]

 objMail.From = "SMTP.MARIOROSSI.COM"

Non è una sintassi valida.
L'errore significa che non hai CDONTS su quel server.
Leggi il 3d in rilievo su win2003

[teorema55]

529 Set objMail = CreateObject("CDONTS.NewMail")

... ma non si era partiti dalle modifiche rese necessarie dal fatto che ARUBA non supporta più CDONTS?

[lupo1978]

SI esatto mi servirebbero le modifiche per aruba con l'oggetto cdo.message,mi sapete aiutare grazie