Mail multiple con Persits

[solareshop]

Buongiorno a tutti, ho un problema che mi assilla:

ho implementato un semplice form mail con possibilià di inviare allegati nel mio sito di progettazione impianti solari. tutto funziona perfettamente ma vorrei che al clic dell'utente, oltre alla mail che arriva direttamente a me arrivasse al cliente una mail di cortesia e di conferma, chiaramente con un testo predefinito e differente da quello destinato a me.
Immagino sia possibile fare tutto nella stessa pagina asp, e in base ai miei (scarsi) rudimenti di programmazione ho abbozzato qualcosa ma il server mi da errore: Persits.MailSender.4 error '800a0006'
Qualcuno mi può aiutare??? Grazie!

[Roby_72]

Devi duplicare lo script che invia a te l'email cambiandogli il testo (e l'oggetto).

Roby

[solareshop]

Invece... mi da error.... non riesco a uscirne,,,Il problema è al momento di prendersi l'indirizzo di destinazione che ovviamente deve essere quello del form...

<%
strHost = "smtp.miodominio.com"


Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True


Count = Upload.Save (Server.MapPath("/mdb-database/"))


If Upload.Form("Send") <> "" Then




nome = Upload.Form("nome")

cognome = Upload.Form("cognome")

fiscale = Upload.Form("fiscale")

indirizzo = Upload.Form("indirizzo")

azienda = Upload.Form("azienda")

citta = Upload.Form("citta")

provincia = Upload.Form("provincia")

regione = Upload.Form("regione")

mail = Upload.Form("mail")

telefono = Upload.Form("telefono")

kw = Upload.Form("kw")

superficie = Upload.Form("superficie")

rete = Upload.Form("rete")

conto = Upload.Form("conto")

moduli = Upload.Form("moduli")

servizi = Upload.Form("serv")

messaggio = Upload.Form("messaggio")





Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Username = "marketing@miodominio.com"
Mail.Password = "password"
Mail.From = Upload.Form("mail")
Mail.FromName = nome & cognome
Mail.Host = strHost
Mail.Subject = "Richiesta preventivo da" & Upload.Form("kw") & "Kilowatt"
Mail.Body = Mail.Body = "

<font face=Arial size=8>" & Chr(13) & vbcrlf

Mail.Body = Mail.Body & "nome: "& nome & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "cognome: "& cognome & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "azienda: "& azienda & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "codice fiscale/ partita iva: "& fiscale & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "indirizzo: "& indirizzo & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "città: "& citta & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "provincia: "& provincia & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "regione: "& regione & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "telefono: "& telefono & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "kw: "& kw & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "superficie: "& superficie & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "rete:" & rete & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "conto: "& conto & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "preferenza moduli: "& moduli & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "servizi: "& servizi & vbcrlf & vbcrlf




Mail.Body = Mail.Body & messaggio

select case regione
case "piemonte": dest = "info.piemonte@miodominio.com"
case "lombardia": dest = "francesco.tedesco@miodominio.com"
case "lazio": dest = "info.lazio@miodominio.com"
case "abruzzo": dest = "info.abruzzo@miodominio.com"
case "sardegna": dest = "info.sardegna@miodominio.com"
case "toscana": dest = "francesco.tedesco@smiodominio.com"
case else dest = "preventivi@miodominio.com"
end select




Mail.AddAddress dest


If Not Upload.Files("Attachment1") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment1").Path
End If

If Not Upload.Files("Attachment2") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment2").Path
End If

If Not Upload.Files("Attachment3") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment3").Path
End If

If Not Upload.Files("Attachment4") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment4").Path
End If

' Send message
Mail.Send


End If

%>



<%
strHost = "smtp.solareshop.com"


Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True


Count = Upload.Save (Server.MapPath("/mdb-database/"))


If Upload.Form("Send") <> "" Then




nome = Upload.Form("nome")

cognome = Upload.Form("cognome")

fiscale = Upload.Form("fiscale")

indirizzo = Upload.Form("indirizzo")

azienda = Upload.Form("azienda")

citta = Upload.Form("citta")

provincia = Upload.Form("provincia")

regione = Upload.Form("regione")

mail = Upload.Form("mail")

telefono = Upload.Form("telefono")

kw = Upload.Form("kw")

superficie = Upload.Form("superficie")

rete = Upload.Form("rete")

conto = Upload.Form("conto")

moduli = Upload.Form("moduli")

servizi = Upload.Form("serv")

messaggio = Upload.Form("messaggio")





Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Username = "info@miodominio.com"
Mail.Password = "password"
Mail.From = "info@miodominio.com"
Mail.FromName = "Servizio Tecnico ......"
Mail.Host = strHost
Mail.Subject = "Richiesta preventivo da" & Upload.Form("kw") & "Kilowatt"
Mail.Body = Mail.Body = "

<font face=Arial size=8>" & Chr(13) & vbcrlf

Mail.Body = Mail.Body & "nome: "& nome & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "cognome: "& cognome & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "azienda: "& azienda & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "codice fiscale/ partita iva: "& fiscale & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "indirizzo: "& indirizzo & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "città: "& citta & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "provincia: "& provincia & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "regione: "& regione & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "telefono: "& telefono & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "kw: "& kw & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "superficie: "& superficie & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "rete:" & rete & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "conto: "& conto & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "preferenza moduli: "& moduli & vbcrlf & vbcrlf

Mail.Body = Mail.Body & "servizi: "& servizi & vbcrlf & vbcrlf




Mail.Body = Mail.Body & messaggio

dest = mail


Mail.AddAddress dest


If Not Upload.Files("Attachment1") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment1").Path
End If

If Not Upload.Files("Attachment2") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment2").Path
End If

If Not Upload.Files("Attachment3") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment3").Path
End If

If Not Upload.Files("Attachment4") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment4").Path
End If

' Send message
Mail.Send


End If

%>


Grazie fin da ora!

[solareshop]

Adesso mi da questo errore...

Active Server Pages error 'ASP 0115'

A trappable error (C0000005) occurred in an external object. The script cannot continue running.

[Roby_72]

Devi duplicare lo script di invio della email non TUTTO...
I campi li devi recuperare una sola volta... e poi usarli per mandare due email.
Prima di riutilizzare un oggetto già usato lo devi prima distruggere con

set nomeoggetto = nothing

Roby