Doppio Invio E-mail

[daninet]

salve a tutti, è il mio primo post spero di trovare l'aiuto richiesto.

ho questo codice, ma quando compilo il form, la mail arriva solo al destinatario, vorei che arrivasse anche a me, spero di essere stato chiaro
questo è il codice:

<%'invio ordine per email


dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "info@****.it" 'Indirizzo mittente ordini
MailServer = "smtp.****.it" 'Indirizzo Mail Server
strRecipients = Session("SchedaClienteEmail")
' strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
strSubject = "Ordine n." & IDOrdine
strMessage = "<font face='Arial' size='2'>La ringraziamo per aver effettuato l'ordine che riportiamo qui di

seguito, le invieremo il file ordinato una volta che avrà completato il pagamento
RIEPILOGO

ORDINE
"
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 : " & ScontrinoNomeprodottoarticolo(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>"

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

Set Fields = myCDOConf.Fields

with Fields
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.******.it"
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 35
.Update

end with

Set myCDOMail = CreateObject("CDO.Message")
Set myCDOMail.Configuration = myCDOConf

with myCDOMail

.To = strRecipients
.From = strSender
.Subject = strsubject
.HTMLBody = strMessage
.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 ail
objMail.Send()

Set objMail = Nothing
%>


grazie in anticipo per chi volesse darmi un aiuto
daninet

[wallrider]

c'è già, l'hai commentata

[sclippertc]

ciao ti ho trovato qualcosa che fa al caso tuo, tu puoi mandartela per conoscenza.

<% 
Dim miaMail 
Set miaMail = CreateObject("CDONTS.NewMail") 

miaMail.From = "mittente@della.mail" 
miaMail.To = "destinatario@della.mail" 

'Destinatario visibile della mail 
miaMail.cc = "webmaster@freeasp.it" 

'Destinatario nascosto della mail 
miaMail.bcc = "webmaster@freeasp.it" 

'Se sono più destinatari visibili 
'miaMail.cc = "webmaster@freeasp.it, info@freeasp.it" 

'Se sono più destinatari nascosti 
'miaMail.bcc = "webmaster@freeasp.it, info@freeasp.it" 

miaMail.Subject = "Oggetto della mail" 
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0 
miaMail.Body = "Testo della mail" 
miaMail.Send 

Set miaMail = Nothing 
%>

[daninet]

Originariamente inviato da wallrider
c'è già, l'hai commentata

scusa sai non sono molto esperto in asp, cosa ho già commentato?
mi spiego, il form al quale mi riferisco funziona perfettamnete, l'unica cosa che mi invia la e-mal solo all'acquirente, io vorrei che una mail di avenuto ordine arrivasse anche a me

grazie della pazienza
daninet

[daninet]

Originariamente inviato da daninet
salve a tutti, è il mio primo post spero di trovare l'aiuto richiesto.

ho questo codice, ma quando compilo il form, la mail arriva solo al destinatario, vorei che arrivasse anche a me, spero di essere stato chiaro
questo è il codice:

<%'invio ordine per email


dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "info@****.it" 'Indirizzo mittente ordini
MailServer = "smtp.****.it" 'Indirizzo Mail Server
strRecipients = Session("SchedaClienteEmail")
' strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
strSubject = "Ordine n." & IDOrdine
strMessage = "<font face='Arial' size='2'>La ringraziamo per aver effettuato l'ordine che riportiamo qui di

seguito, le invieremo il file ordinato una volta che avrà completato il pagamento
RIEPILOGO

ORDINE
"
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 : " & ScontrinoNomeprodottoarticolo(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>"

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

Set Fields = myCDOConf.Fields

with Fields
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.******.it"
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 35
.Update

end with

Set myCDOMail = CreateObject("CDO.Message")
Set myCDOMail.Configuration = myCDOConf

with myCDOMail

.To = strRecipients
.From = strSender
.Subject = strsubject
.HTMLBody = strMessage
.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 ail
objMail.Send()

Set objMail = Nothing
%>


grazie in anticipo per chi volesse darmi un aiuto
daninet

ok grazie la riga è questa, in grassetto, e ti ringrazio, non l'avevo vista,

ora mi arriva la mail anche a me, la stessa mail con lo stesso testo, se volessi avere un testo diverso da quello da inviare al cliente, della serie

Desidero ordinare i seguenti articoli:

grazie