Hola compañeros. Tengo un formulario que funciona a la perfección pero quiero que además pueda adjuntar archivos. No se como hacerlo. Ahora os pongo el código de los dos archivos que utilizo. Me podriais decir qué añadir y donde hacerlo para que me pueda llegar el formulario con un archivo adjunto a mi correo?
Muchísimas gracias!!!
Código formulario:
<body>
<form action="envianosaltres.asp" method="post" enctype="multipart/form-data">
<p>Nom i Cognom:
<input name="nom" type="text" size="60" maxlength="60">
</p>
<p>email:
<input name="email" type="text" size="50" maxlength="50">
</p>
<p>Presentació: <br />
<textarea name="presentacio" cols="80" rows="5"></textarea>
</p>
<p>Fotografia:
<label>
<input name="file" type="file" size="50" />
</label>
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</body>
Código archivo asp encargado en enviar el formulario:
<%
'Creación de variables para almacenar los campos del formulario
Nom= Request.Form("nom")
email= Request.Form("email")
Presentacio= Request.Form("presentacio")
strTo = "[email protected]" ' Esta es una dirección que corresponda a nuestro servidor
strSubject = "Nosaltres"
strBody = "<html><body>"
strBody = strBody & "Nou missatge de nosaltres<br><br>"
strBody = strBody & "Nom: "& Nom &"<br>"
strBody = strBody & "email: "& email &"<br>"
strBody = strBody & "Presentacio: "& Presentacio &"<br>"
strBody = strBody & "</body></html>"
strFrom = "[email protected]" 'No hay problema en que sea la misma que la anterior.
Set myMail = CreateObject("CDO.Message")
myMail.Subject = strSubject
myMail.From = strFrom
myMail.To = strTo
myMail.HTMLBody = strBody
myMail.Send
set myMail = nothing
'Response.redirect "gracias.html"
' O bien podemos ahorrar una página y escribir algo como
Response.write "La seva presentació ha estat enviada. Gràcies."
%>
