Invio email con allegato dell'utente

[Delo80]

Salve a tutti

devo far inviare una mail all'utente del sito facendogli allegare un file.
Che soluzioni mi consigliate?
Grazie a tutti

[Roby_72]

CDONTS da server Windows 2000
CDOSYS da server Windows 2003

Roby

[Delo80]

Grazie mille per le risposta
Ho dato un occhio ai vari script e alle funzioni che possono gestire ma non ho trovato la funzione relativa alla possiblita di allegare un file alla mail.
Sapresti dirmi qualcosa di +?
Grazie ancora

[Roby_72]

Entrambi i componenti hanno il metodo per allegare file.
Cerca bene.

Roby

[Goldenhawk2007]

Salve.
Ho un problema. Premetto che sono un neofita del web avendo sempre lavorato in Oracle e DB2.
Avrei preparato un modulo di contatto per un sito col quale l'utente deve avere la possibilità di allegare un proprio file alla mail scegliendolo tra quelli esistenti sul suo PC.
Il modulo sarebbe questo:

<%

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

fileAllegato

invioA = "info@pincopallino.org"

'* voce indirizzo email che funge da mittente:
'* in caso di errore si riceverà notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@pincopallino.org"

'* indicando il nome del file da allegare, viene inviato regolarmente il file deve
'* con questo script, però, il file deve risiedere in questa stessa cartella, come il file allegato a titolo di esempio
'* ma a me interessa che sia l'utente Web a scegliere il file dal suo PC e a mandarlo come allegato

fileAllegato = "prova.zip"

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
cartella = Server.MapPath("./")

'*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 & ""
.AddAttachment (fileAllegato)
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>

Qualcuno può darmi una dritta ?

[Roby_72]

Prima di inviare l'email il file deve essere caricato sul server tramite un processo di upload.
Cerca l'upload i Baol74 sul forum.

Roby

[Goldenhawk2007]

Ti ringrazio molto.
Conosco la procedura di upload, ma credo ci fosse un modo diretto per inviare il file direttamente dal lato client direttamente al server di posta.
Grazie veramente.

[Roby_72]

No.

Roby