ragazzi, è possibile spedire un allegato ad un indirizzo mail predefinito da una form.
mi spiego meglio:
l'utente deve compilare 3 campi testi, allegare 1 file e poi il tutto deve essere spedito in mail.

qualcuno può consigliarmi qualche script già pronto?

per l'invio standard io utilizzo lo script consigliato da aruba...ma per allegare 1 file non sono in grado.

c'è qualcuno che mi può aiutare?

grazie.


Andrea



<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "foscolino@pippo.it"

'* voce da modificare con un indirizzo email che funga da mittente: '* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "assistenzaclienti@prova.it"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf &
Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi)) END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & "" .Send
End With
%>
<script>
document.location.replace('contatti_inviata.html');
</script>

Chiacchiera con i tuoi amici in tempo reale!
http://it.yahoo.com/mail_it/foot/*http://it.messenger.yahoo.com

si, già provato...lo script allega correttamente la mail...
ma in questo caso il file uplodato deve avere sempre lo stesso nome :-)
il mio problema deriva dal fatto che la form online deve permette l'upload di qualunque file, e quest'ultimo poi deve essere allegato in una mail, la quale verrà spedita ad 1 solo destinatario...

in sostanza si tratta di un modulo con richiesta informazioni e la possibilità di allegare un file, tipo curriculum o qualche altra schifezza..
hai qualche idea su come posso realizzarlo?

thankss!!!

ciaoooooooo

Andrea M.