Inviare una email

[marco.santilli]

Vorrei creare un modulo per inviare delle email ad un'indirizzo ben preciso.

In rete dopo tante prova ho trovato un condice che funziona perfettamente.

-----------------------------------------------
<%
Dim iMsg, iConf, Flds




'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "marco@santillimarco.it"
destinatario = "marco@santillimarco.it"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS altra prova"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio


'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>
------------------------------------------------------

Ho impostato la mia email e ho visto che tutto funziona perfettamente, mi arriva l'email nella mia casella con il testo di prova: Invio con CDOSYS altra prova

Cosi facendo appena carico il sito mi parte l'email
Ora voglio creare le mie caselle di testo e quando premo il pulsante inviare il tutto

Mi potete modificare il testo, non sono capace.

Questa è la parte che contiene il modulo. Scritto in HTML. Potete convertire anche il tutto in ASP, non è un problema
I campi da compilare sono i seguenti:
Cognome (TESTO)
Nome (TESTO)
Email (TESTO)
Telefono (TESTO)
Quesito (TESTO, MULTIRIGA)



Cognome
<input type="text" name="Cognome" size="20">
</p>


Nome
<input type="text" name="Nome" size="20"></p>


Email
<input type="text" name="Email" size="27"></p>


Telefono
<input type="text" name="Telefono" size="20"></p>


Quesito
<Textarea type="text" name="Messaggio" size="20" cols="100" rows="8"></Textarea></p>


</p>



<input type="submit" value="Invia"></p>





Ciao e grazieeeeeeeeee

[Roby_72]

cognome = trim(request.form("cognome"))
nome = trim(request.form("nome"))
email = trim(request.form("email"))
ecc...

Poi li metti come variabili nella email, ad esempio:

.To = email

Roby

[marco.santilli]

Come faccio però a far partire l'email alla pressione del tasto INVIA, mi puoi creare quell'allaccio

Ciao e grazieeeeeeeee

[Roby_72]

Metti i campi in un form:

<form method="post" action="pag2.asp">
<input ....
</form>

e nella pag2.asp recuperi i campi e mandi l'email.

Roby

[marco.santilli]

La cosa si fa complicata

Mi divideresti allora i codice che va in una pagina e quello che va nell'altra.

Dai che sta volta deve funzionà per forza, praticamente mi hai fatto tutto


Scusami !!!!!!!!


Ciao e grazieeeeeeee

[Roby_72]

Nella ptima solo il form
Nella seconda il recupero dei campi con request.form e il codice di invio email:

http://www.weppos.com/asp/script/scr....asp?script=17

Roby

[marco.santilli]

Il codice di quella pagina è errato

Se premi il pulsante INVIA ti si apre la finestra di outlook express per mandare via l'email attraverso il programma

Quello ce l'ho gia in HTML, io lo voglio creare intereamente in asp in modo che un utente che non ha l'email configurata può mandare via ugualmente le email da sito.

Il codice che ho scritto in alto fa tale funzione perfettamente solo che invia i dati FISSI presenti nel codice, adesso invece lo voglio integrare con le caselle di testo per immettere i dati ed inviare il tutto

[Roby_72]

Originariamente inviato da marco.santilli
Il codice di quella pagina è errato

Se premi il pulsante INVIA ti si apre la finestra di outlook express per mandare via l'email attraverso il programma

Non mi pare proprio...

Roby

[marco.santilli]

Ho riprovato

Mi va in errore questa riga:

objMail.Send()

[marco.santilli]

Ok, la prima pagina l'ho creata
con le mie caselle di testo

Quando premo il pulsamte mi punta sulla pagina dove ho tutto il codice per l'invio

In pratica questo sulla prima pagina:

<table align="center" cellpadding="10" cellspacing="0" style="border: Solid 1px #CCCCCC;">
</form>
<form name="modulo" method="post" action="legale3.asp">
<tr>
<td>
Nome

<input type="text" name="nome" class="txt">


Cognome

<input type="text" name="cognome" class="txt">


Email

<input type="text" name="email" class="txt">


Oggetto

<input type="text" name="oggetto" class="txt">


Importanza

<select name="importanza">
<option value="0">Bassa</option>
<option value="1">Media</option>
<option value="2">Alta</option>
</select>


Messaggio

<textarea name="messaggio" rows="7"></textarea>
</td>
</tr>
<tr>
<td align="center">
<input type="checkbox" name="html"> In formato Html




<input type="submit" value="Invia" class="sub">
</td>
</tr>
</form>



Ora sulla seconda:

<%
Dim iMsg, iConf, Flds




'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "marco@santillimarco.it"
destinatario = "marco@santillimarco.it"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS altra prova"




With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
'.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")





'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>


Mi manca solo la parte che mi recupera i campi, per il resto ci siamo

Fammi sapere

Ciao e grazieeeeeee