[ASP] Form Mail asp

piterrey

[ASP] Form Mail asp

Salve ragazzi ho bisogno di uno script in asp.
Ho un form per inserimento dati , e mi servirebbe uno scriptino che al momento del click sul bottone invia o meglio all'invio della mail , mi invia una mail con i dati inseriti dall'utente.
Grazie

hwlab123

Public iMsg, Flds, iConf
public sub invia_mail(frommail,tomail,oggetto,corpo,allegato)
  Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields
  Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
  Flds.Update
  With iMsg
   Set .Configuration = iConf
   .To = tomail
   .From = frommail
   .Subject = Oggetto
   .TextBody = Corpo
   if not isnull(allegato) or allegato<>"" then .AddAttachment allegato
   .Send
  End With 
End Sub

ciao

hwlab123

scusa avevo letto male.
Con quello invia la mail
recupera i campi della form così


corpo = ""
for each elemento in Request.Form
corpo = corpo & elemento & " = " & request.form(elemento) & chr(13)
next

poi invia la mail con l'altra sub

ariciao

piterrey

Grazie mille ma non riesco a capire quasi nnte , sono abbastanza bravo in php ma in asp non capisco nnte.Mi evidenzieresti le parti da personalizzare in rosso in tutti e due gfli script?
Ciao Marco

hwlab123

fai il post del form
mandi la tua mail (puoi adoperare anche fa funzione incollata)
recuperi tutti i campi del form (compilati e non) in questo modo


dim corpo
corpo = ""
for each elemento in Request.Form
corpo = corpo & elemento & " = " & request.form(elemento) & chr(13)
next

metti la sub nella pagina


Public iMsg, Flds, iConf
public sub invia_mail(frommail,tomail,oggetto,corpo)
  Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields
  Flds("[http://schemas.microsoft.com/cdo/con...tlatestversion](http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion)") = True
  Flds.Update
  With iMsg
   Set .Configuration = iConf
   .To = tomail
   .From = frommail
   .Subject = Oggetto
   .TextBody = Corpo
   .Send
  End With 
End Sub

invii la nuova mail chiamando


call invia_mail("mailpartenza","mailarrivo","Oggetto mail",corpo)

corpo la puoi lasciare così visto che avrai già definito la suddetta variabile e l'avrai riempita. Come ti ho suggerito non sarà formattata in maniera spettacolare ma funziona.
se ad esempio avevi nel form 2 campi Nome e Cognome, ti ritroverai una mai con il corpo:
Nome = valore inserito nome
Cognome = valore inserito cognome

Comunque fai una prova sarà tutto + chiaro