Enviar por email un fichero a través de un formulario

18/01/2005 - 14:29 por vgpas | Informe spam
Tengo el siguiente formulario:

<form ACTION="prueba.asp" METHOD="POST" ENCTYPE="multipart/form-data">
Fichero:<input type="file" name="nfichero"><br>
Descripcion:<INPUT TYPE="text" name="texto"><br>
<input type="submit" value="Enviar">
</form>

Y quiero poder enviar el fichero que seleccione por email. Creo que tengo
que hacer algo así:

Set objCDO = Server.CreateObject("CDO.Message")
Set objCDO.Configuration = iConf
objCDO.To = direccionmail
objCDO.From = direccionmail
objCDO.Subject = asunto
objCDO.TextBody = cuerpo
objCDO.AddAttachment "¿aquí que hay que poner?"
objCDO.Send
Set objCDO = Nothing

¿Alguien me puede ayudar?

Saludos
 

Leer las respuestas

#1 Benjamin Porter
18/01/2005 - 16:36 | Informe spam
Me imagino que ya recogiste el archivo y lo guardaste en el servidor en
alguna parte. Si no lo has hecho, adelante con eso. Luego, el metodo es:

objCDO.AddAttachment "c:uta\carpeta\archivo.ext"

Donde "c:uta\carpeta\archivo.ext" es la ruta en EL SERVIDOR donde está
guardado el archivo subido.




Atentamente
_____________________
Benjamin Porter

(Evidentemente sin el ".punto")





"vgpas" escribió en el mensaje
news:
Tengo el siguiente formulario:

<form ACTION="prueba.asp" METHOD="POST" ENCTYPE="multipart/form-data">
Fichero:<input type="file" name="nfichero"><br>
Descripcion:<INPUT TYPE="text" name="texto"><br>
<input type="submit" value="Enviar">
</form>

Y quiero poder enviar el fichero que seleccione por email. Creo que tengo
que hacer algo así:

Set objCDO = Server.CreateObject("CDO.Message")
Set objCDO.Configuration = iConf
objCDO.To = direccionmail
objCDO.From = direccionmail
objCDO.Subject = asunto
objCDO.TextBody = cuerpo
objCDO.AddAttachment "¿aquí que hay que poner?"
objCDO.Send
Set objCDO = Nothing

¿Alguien me puede ayudar?

Saludos





Preguntas similares