I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
mediakele
mediakele
il 14 giugno 2008 alle 12:45
22 messaggi dal 31 maggio 2007
www.sigrazie.biz
Carissimi!
ho realizzato una form semplice con dei campi obbligatori (js), una volta che invio il form estrae i dati inseriti e li invia a una pagina (verificadati.asp)
Il mio problema è che dovrebbe oltre che inviarli alla pagina verificadati.asp anche inviarmeli via email, qualcuno può aiutarmi?
Disponibile per darvi il codice .. attendo qualche buonanima!
Grazie
Michele
RispondiQuoting
cyberkings
cyberkings
il 18 giugno 2008 alle 11:54
252 messaggi dal 03 dicembre 2001
www.fuossbook.it
Questo è un esempio per l'invio della mail


tuoMessaggio ="qui ti puoi costruire il tuo messaggio"
tuoMessaggio = tuoMessaggio & "campo database "& campo1 &" campo2 "& campo2 &"<br>"
tuoMessaggio = tuoMessaggio &"testo "& campo3 &"<br>"

Dim objMail, objConfig

' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")


' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "mittente@dominio.com" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = tuoMessaggio ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing
***************************
webmaster di:
hydrasail.blogspot.it
fuossbook.it
***************************
RispondiQuoting
mediakele
mediakele
il 7 luglio 2008 alle 15:46
22 messaggi dal 31 maggio 2007
www.sigrazie.biz
Grazie 1000! ho risolto! Ora però ho un altro problema, la form intercetta i dati inseriti e, quando viene postata arriva senza e-mail del mittente(cioè solo con la mail che il cliente scrive) ma non identifica quella reale che utilizza, infatti la mail arriva a me senza "da"!
questa è parte del codice:

'response.write(corpo)
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "xxx@xxx.eu"
miaMail.To = "yyy@yyy.eu"
miaMail.Subject = "Nuova mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = corpo
miaMail.Send
set miaMail = Nothing

la mail arriva con "da: xxx@xxx.eu e possibile captare la vera mail del cliente?
Grazie di cuore
Michele
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.