Da CDONTS a CDO

[elbahari]

Ho un ulteriore problema.
Il server dove è pubblicato il sito supporta solo il metodo CDO per l'invio della posta.

Il mio codice è scritto invece per CDONTS

<%

'invio ordine per email con CDONTS

dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "assss2002@libero" 'Indirizzo mittente ordini
MailServer = "mail.tin.it" 'Indirizzo Mail Server

'strMailServer = MailServer
strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder INDIRIZZO DEL CLIENTE
strSender = MailOrder INDIRIZZO 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("CDONTS.newmail")
'objMail.ServerAddress = strMailServer
objMail.From = strSender
objMail.To = strRecipients
objMail.Subject = strSubject
objMail.Bodyformat=0
objMail.Mailformat=0
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

%>

Come posso convertirlo ? Grazie. Antonella

[santino83]

UNO SCRIPT TRA TANTI

oppure vai su google e con "pagine in italiano" cerca "asp inviare email CDO"

[elbahari]

Sono arrivata a questo punto :

CDO.Message.1 error '8004020c'

È necessario specificare almeno un destinatario, ma non ne è stato trovato alcuno.

/carrello_asp/ordine.asp, line 564

<%

'invio ordine per email


dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "assss2002@libero.it" 'Indirizzo mittente ordini
MailServer = "mail.tin.it" 'Indirizzo Mail Server
strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
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>"


' per CDO

'Create the e-mail server object
Set myCDOMail = CreateObject("CDO.Message")
Set myCDOConf = CreateObject("CDO.Configuration")

Set Fields = myCDOConf.Fields

with Fields
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myCDOConf.Fields.Update
end with

with myCDOMail
myCDOMail.Subject = strsubject
myCDOMail.From = strSender
myCDOMail.To = strRecipents
myCDOMail.HTMLBody = strMessage
myCDOMail.send
end with

on error resume next '## Ignore Errors

'Close the server object
Set myCDOMail = Nothing
Set myCDOConf = Nothing

Set Fields = Nothing

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

%>

[santino83]

cosa c'è qui?

strRecipents

[elbahari]

SchedaClienteEmail = Session("SchedaClienteEmail")

qui c'è l'email del cliente.

Se vuoi posso inviarti tutto il file !!!!

[santino83]

no ti prego

prova a fare, prima di scrivere il cdo,

response.write strRecipients 
response.end

e guarda se è valorizzata

[elbahari]

ecco la risposta

info@arcasnt.it;assss2002@libero.it

[santino83]

non sapevo che nel to si potessero mettere piu indirizzi...

[santino83]

ricordavo bene

[elbahari]

Stesso errore :

CDO.Message.1 error '8004020c' È necessario specificare almeno un destinatario, ma non ne è stato trovato alcuno

anche con un solo indirizzo