form mail senza cdont o cdosys..

[i_am_antipop]

ASP: è possibile mandare form email senza cdont o cdosys?

tnx

[br1]

Certo... basta installare ed usare un altro componente... mi pare di ricordarne uno di nome AspEmail ...

[i_am_antipop]

grazie

..il fatto è che devo mettere su un sito un form email funzionante e ho 2 problemi:

1) non conosco ASP (ma spero di trovare script utili)

2) il gestore dell'hosting è molto poco professionale, non sa dirmi se il server supporta Cdont, Cdosys, etc...

ho provato con script cdont e cdosys, ma nulla, restituisce "500 errore interno del server"


PS: ho scoperto ora tramite script che il server è Windows 2003...

[i_am_antipop]

grazie a questa discussione son riuscito a far funzionare un test!!! sonb feliccissimo!


però... come faccio a "prendere" i dati proveneienti dal form?

(in PHP saprei farlo... ^_^ )


es:
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "xxxxxxx@xxxx.xx"
destinatario = "xxxxxxx@xxxx.xx"

[Roby_72]

Se il campo del form si chiama "mittente" puoi recuperare così:

mittente = trim(request.form("mittente"))

e così per ogni campo.


Roby

[i_am_antipop]

grazie, provo!

[i_am_antipop]

Ancora una cosa.. come si può aggiungere un controllo se la mail è stata inviata?

Ho trovato un codice tipo, ma non so come integrarlo... tnx!


if email.error=0 then
response.write "Invio Corretto."
else
response.write "Invio fallito."
end if

/////////////////// script invio mail
<%
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 = trim(request.form("mittente"))
destinatario = "xxxx@xxxxxxx.xx"
oggetto = trim(request.form("oggetto"))
messaggio = trim(request.form("messaggio"))

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

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


'Formato testo ( o HTMLBody scegliere)
.TextBody = "messaggio"

'Invia l'email
.Send()


end with

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

[i_am_antipop]

Originariamente inviato da i_am_antipop

.TextBody = messaggio

come posso aggiungere altro testo a .TextBody?

ad es:
.TextBody = messaggio & mittente ?




grazie

[Roby_72]

.TextBody = messaggio & VbCrLf &".Mittente: "& mittente

Roby

[i_am_antipop]

Originariamente inviato da Roby_72

 .TextBody = messaggio & VbCrLf &".Mittente: "& mittente

Roby

grazie mille!