Invio Email (please)

[Mat.Car.]

Ciao a tutti..
... mi spiace chiedere una cosa cosi 'stupida' ... ma proprio non ho tempo materiale pe rmettermi li e risolvere.... ho cercato in questa sezione invio email ...ma nn ho capito nulla!
Non sono molto pratico con il linguaggio ASP

Quello che vorrei chiedervi è un modulino semplice semplice ... che invii

Nome:
Email:
Messaggio:


tutto qui...
ora sto usando uno 'script'... ma quando si preme su invia esce una popup d Explorer che avvisa bla bla....


Qlc può tendermi una mano?
Grazie

[Roby_72]

Indaga su che server sei prima...

Roby

[Mat.Car.]

Originariamente inviato da Roby_72
Indaga su che server sei prima...

Roby

Ho pubblicato la 'famosa' pagina per vedere cosa c'è attivo sul server e cosa no... risultato:

AspeMail: Attivo
CDOSYS: Attivo

[Roby_72]

Segui gli esempi di CDOSYS:
http://www.weppos.com/asp/script/categoria_email.asp

Roby

[Mat.Car.]

Originariamente inviato da Roby_72
Segui gli esempi di CDOSYS:
http://www.weppos.com/asp/script/categoria_email.asp

Roby

Ti ringrazio
Scusa l'ignoranza in materia... tutto questo codice sarebbe la mia ipotetica pagina contatti.asp ? :master:



<%

' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig

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

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

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miosito.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update

End With

' 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 = Request.Form("messaggio") ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente " &_
"all'indirizzo " &_
Request.Form("email"))

else %>
<form name="formail" method="post" action="?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>



Grazie ancora...

[Mat.Car.]

... mi sa ke ho detto la cazzata :master:

[Roby_72]

Si, mettendo le tue informazioni server... non quelle commentate o di esempio dello script base.

Roby

[Mat.Car.]

Originariamente inviato da Roby_72
Si, mettendo le tue informazioni server... non quelle commentate o di esempio dello script base.

Roby

Si si... le informazioni server metterò le mie...
ma chiedevo se è sufficiente lo script che ho postato prima...

creo una pagina
la chiamo contatti.asp
e inserisco lo script precedente


esatto?



ke bestia ke sono!


Thx

[Roby_72]

Si, quella pagina è divisa in due: form inserimento informazioni ed invio email dopo aver premuto invio.

roby