Archivos adjuntos con CDONTS

[zero_sos]

Hola a todos.

Espero que esten muy bien, gracias por leer mi pregunta.

Actualmente tengo un formulario por el que capturo unos datos que luego enviare por email usando el objeto CDONTS, ahora bien lo que sucede es que tengo en mi formulario un File Upload, o sea que puedo seleccionar un fichero para adjuntarlo en el email. El problema es que no se como hacer para adjuntar un fichero y enviarlo como un email :( utilizando el objeto CDONTS.

Por favor si conoces un metodo que me pueda ayudar con esto te agradeceria que me puedas ayudar.

Gracias mil.

Zero

[legolas]

prueba colocando esto:

mail.AttachFile "c:\prueba.txt"

suerte!

[zero_sos]

no, no me funciono de esa manera me da un error http 500- Internal server error.

Tienes algun otro comentario acerca de esto?

[zero_sos]

Este es el codigo que tengo:

text = "<center><font size=3><b>Netservices C. R. Online Support Platform</b></font></center><br><br>"
text = text + "La siguiente información fue enviada desde Online Support Platform en el servicio: <br><b>" & titulo
text = text + "<br><br>" & Nombre & " " & apellidos & "</b><br>"
text = text + "<b>Compañía:</b> " &session("Nombrelargo")
text = text + "<br>" & email & "<br>"
text = text + "<b>Usuario:</b> " & session("Login")
text = text + "<b><br>Ip:</b> " & Session("IP")
text = text + "<b><br>El Producto al que se dara el soporte es: </b>" & producto & "<br><br>"
text = text + "<b>El nivel de experiencia del solicitantes es: </b>" & experiencia &"<br><br>"
text = text + "<b>El comentario dado es: </b><br>" & comentarios & "<br><hr>"
text = text + "*****************<br>"
text = text + "Mensaje informativo de procesamiento de datos<br>"
text = text + "<a href=Http://www.netservicescr.com><b>Netservices C. R.</b></a><br>"
text = text + "Copyright © 2001 NetServices C. R.. All Rights Reserved.<BR>"

set em = Server.CreateObject("CDONTS.NewMail")

em.From = "[email protected]"
em.To = "[email protected]"
em.Cc = "[email protected]"
em.Subject = "Información desde " & titulo
em.bodyformat = 0
em.mailformat = 0
em.AttachFile " & fichero & ", "Fichero Adjunto"
em.Body = text
em.Send

set em = nothing



Cuando lo ejecuto antes de enviarlo me da el error antes descrito.

Ayudenme PLIS

[zero_sos]

Nadie tiene una respuesta para esto??

Ayudenme por favor.

[bakanzipp]

si " & fichero & " es una variable debes colocarla sin las comillas y los &.

em.AttachFile fichero

ademas como dice legolas deberia funcionarte los attach.

prueba primero con path en duro y verifica si funciona bien y despues usa variables.

em.AttachFile "c:\archivo.txt"

estas seguro que se cae por el attach??.

si no quieres que te arroje el error 500. personaliza tu browser para que no te arroje mensajes amigables.

[zero_sos]

Y como lo puedo personalizar para que no me de mensajes amigables?

Gracias por tus respuestas.

[CHuLoSoY]

además , la variable fichero deberás recogerla con un request.form antes, aunque supongo que eso estará hecho.

[zero_sos]

Si... Ya estoy haciendo el Request.form, el problema es con el AttachFile, pues cuando lo comento : 'em.AttachFile "C:\String.txt" pues no me da el error de Http 500 Internal Server Error.

Esto es raro, por doquiera que investigo me doy cuenta de que es asi pero no me quiere funcionar...


Tienes algun comentario sobre ello?

Gracias Mil.

[bakanzipp]

a ver..... debe haber dos formas.

***************************
On Error resume next

set em = Server.CreateObject("CDONTS.NewMail")

em.From = "[email protected]"
em.To = "[email protected]"
em.Cc = "[email protected]"
em.Subject = "Información desde " & titulo
em.bodyformat = 0
em.mailformat = 0
em.AttachFile fichero
'me imagino que fichero es variable cierto?
em.Body = text
em.Send

set em = nothing

if Err.Number <> 0 then
response.write Err.description
end if

***********************
para personalizar el error en el iexplorer.

herramientas-->opciones de internet-->avanzadas

descheckear Show friendy Http Errors.

Prueba con eso.

Probaste enviando un email sin attach , si se cae...el error es otro

[zero_sos]

Ok, mira...

Fichero es una variable, osea fichero = replace(request("fichero"), "'", "") esa variable va a contener el path del fichero que quiero adjuntar. Ya he tratado desplegando el contenido de la variable y no hay problema, el me esta asignando correctamente el valor del path a Fichero.

Si, como me preguntaste ya trate de enviarlo sin el em.AttachFile y no da ningun problema.

Gracias por todo, que opinas de esto?

Zero

[bakanzipp]

entonces veamos ke arroja el error verdadero...te parece...

modifica tu codigo y colocale el on error resume next.

[CHuLoSoY]

pero con el replace si el archivo tiene una comilla simple ya no se hará el attachment.

[zero_sos]

Acabo de Probarlo y envio el email sin problemas pero no adjunto el fichero.

Comprobe nuevamente la ruta fisica del fichero que quiero adjuntar y todo esta bien.

Que Podria Ser.. :s

gracias.

[DeLaVega]

Para adjuntar un archivo este debe existir en el servidor...
O sea, debes subirlo antes.... y debes poner en el path el de tu servidor (podrías usar Server.MapPath ("archivo") para que te devuelva la ruta fisica de donde esta ubicado el archivo)
saludos

[JoeMx]

Iniciado por DeLaVega

Para adjuntar un archivo este debe existir en el servidor...
O sea, debes subirlo antes.... y debes poner en el path el de tu servidor (podrías usar Server.MapPath ("archivo") para que te devuelva la ruta fisica de donde esta ubicado el archivo)
saludos

Que tal, donde pudiera ver un ejemplo de como seria el codigo de esto?
Es decir es claro que primero se sube el fichero y despues se adjunta al email, pero de que manera capturo la dirección en el servidor de los ficheros subidos, para que en el momento que el usuario envia los datos de texto, se vea reflejada la ruta en donde estan los qrchivos...

Muchas gracias..