aiuto disperato per form email

[fre2004]

faccio appello a tutti voi webmaster nel rimembrare i vostri inizi...


ho un problema enorme,

devo consegnare un lavoro che sto facendo per conto di amci di famiglia il sito è fnito ma mi manca una cosa:

come cavolo si inviano le email da server win???

avrei bisogno che qualcunomi postase il codice per un form di segnalazione problemi.

bastano solo 2 campi:

oggetto e descrizione.

in più dovrebbe avere una funzione HTTP_REFER cosi posso capire su quale url si basa il problema

vi pregooo.....

[Lak3d]

Originariamente inviato da fre2004
come cavolo si inviano le email da server win???

fai una ricerca digitando cdont o cdosys...

avrei bisogno che qualcunomi postase il codice per un form di segnalazione problemi.
bastano solo 2 campi:
oggetto e descrizione.

ma cosa deve fare questo form? Inviare la mail?

in più dovrebbe avere una funzione HTTP_REFER cosi posso capire su quale url si basa il problema

funzione? una server variable vorrai dire... basta che ti crei un campo hidden o quando invii il form alla pagina di invio mail (sempre se è quello che vuoi fare) fai un semplice var=Request.ServerVariables("HTTP_REFER")

[fre2004]

allora cerco di essere chiaro:

voglio realizzare un form per l'invio di mail che arrivano a me webmaster.

quando un utente ad esempio visita la pagina chicco.asp,

e nota un problema,

clicca sul link segnala problema, si apre la pagina segnala.asp, su cui ce il form che invia la mail a me webmaster. (nel form ci sono 2 cami da riempire oggetto e descrizione)

con HTTP_REFER posso capire che la pagina da visionare è chicco.asp

ok?

[Lak3d]

pagina segnalazione.asp

<form name="Segnalazione" METHOD=POST ACTION="Spedisci.asp">
Oggetto<INPUT TYPE=TEXT NAME="Oggetto">

<TEXTAREA row=20 cols=30 VALUE="Inserisci qui il problema..." NAME="Segnalazione"></TEXTAREA>
<INPUT TYPE=SUBMIT VALUE=Invia><INPUT TYPE=RESET VALUE="Pulisci">

pagina Spedisci.asp

Oggetto=Request.Form("Oggetto")
Segnalazione=Request.Form("Segnalazione")
Pagina=Request.ServerVariables("HTTP_REFER")

'codice per l'invio della mail...

Vedi qui per il codice della mail... ti bastano un copia-incolla e poche modifiche. http://forum.html.it/forum/search.ph...by=&sortorder=

[fre2004]

ora mi faccio un giro

intanto grazie.

[fre2004]

ho cercato un po in giro e ho un un collage del codice ed e uscito fuori:

<%

' Crea l'oggetto CDOSYS
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")

' Proprietà di invio
with objMailConfig
' SMTP mail server
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.com"
' Autenticate
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpAuthenticate") = cdoBasic
' User
.Fields("http://schemas.microsoft.com/cdo/configuration/SendUserName") = "info@xxx.com"
' PW
.Fields("http://schemas.microsoft.com/cdo/configuration/SendPassword") = "xxxxx"
' SMTP port
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' CDO port
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
end with

' Configurazione CDOSYS
Set objMail.Configuration = objMailConfig

with objMail

' Mittente
.From = "symbio@xxx.com"
' Destinatario
.To = "info@xxx.com"
' Oggetto
.Subject = oggetto
' Corpo dell'email
.HTMLBody = descrizione


' Invia l'email
.Send

end with

Set objMail = Nothing
Set objMailConfig = Nothing

Response.Write ("successo.html")
%>


le mail arrivano alla casella pero ho 4 problemi:

le mail sono vuote

non ce l'oggetto nelle mail

essendo vuote non arriva nelle mail l'url della pagina da segnalare (HTTP_REFER)


dopo l'invio non va alla pagina successo.html

chi mi aiuta?

[KOLOSSEO]

Mi sembra un po' complicato il modo che hai trovato di inviare la mail.
Io ho sulle mie pagine queste 7/8 righe e hanno sempre funzionato.
Se vuoi prova...

dim objMail

Set objMail = Server.CreateObject("CDO.Message")
objMail.From="tuamail@tuamail.com"
objMail.To="tuamail@tuamail.com"
objMail.Subject=soggetto (che sarà "credo" un request.form dalla pagina di segnalazione)
objMail.htmlBody=Corpo (che sarà anche questo un request.form dalla pagina di segnalazione)
objMail.Send
Set objMail = nothing

...tutto qua...

E per quanto riguarda il ritorno alla pagina "successo.html" puoi scegliere se farlo fare manualmente all'utente, tipo:

response.write "Grazie della segnalazione.
Torna alla pagina..."

...oppure in automatico alla fine dell'invio della e-mail:
response.redirect("successo.html")

Nota: non c'è controllo sull' invio...cioè non viene generato nessun errore se la posta, per qualche motivo non parte, ma essendo una segnalazione di errore "cortese" da parte dell'utente, non credo sia "cortese" segnalargli che ha generato un nuovo errore...per segnalarti un errore ;-)

Spero ti aiuti

Ciao e buon anno.

Maurizio.

[fre2004]

grazie mauro,

per il controllo si, lo so, poi uso javascript.

un ultimo cosa:

come posso farmi uviare nella mail anche l'http refer.

il link di provenienza del visitatore


AUGURIIII!!

[Lak3d]

Pagina=Request.ServerVariables("HTTP_REFER")

insieme a descrizione, (che immagino sia quello che arriva dalla textarea) mettici anche Pagina

.HTMLBody = descrizione & VbCrLf & "Link di provenienza: " & Pagina

[fre2004]

GRAZIE A TUTTI BUON ANNO!