Nuevamente ... sabes sobre esto?

[zero_sos]

Hola a todos.

Nuevamente vuelvo a molestarlos con el mismo tema pero ya no tengo que hacer...

Estoy tratando de enviar un email con un attachfile usando el objeto CDONTS, sin embargo me esta dando muchos problemas.

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.AttachFile Server.Mappath("adjunto/"&Session("filename"))
em.bodyformat = 0
em.mailformat = 0
em.Body = text
em.Send

Eliminando el fichero.
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.Deletefile(Server.Mappath("adjunto/"&Session("filename"))
Set oFSO = Nothing


Algo como esto es lo que estoy haciendo... el Body lo tengo en la variable Text la cual declaro antes de este codigo.

En este caso no me esta enviando el fichero y el problema debe estar en la parte del server.mappath cuando le digo que el nombre del fichero esta en una variable.

Si me pueden comentar algo acerca de esto por favor no lo dejen de hacer...

Muchas gracias.

Zero.

[zero_sos]

ahhhhhh....


uno de los problemas es que me dice Error HTTP 500.

No envia el email y no me permite continuar.

Alguna idea?

[ElAprendiz]

anda a herramientas ->opciones avanzadas y luego haces clic en mostrard errores descriptivos en http y luego nos cuentas cua es el error

[zero_sos]

si, el problema es que estoy trabajando en mi servicio de hosting, y este no me permite ir a hacerlo.

[bakanzipp]

oooooooo....personaliza el error

on error resume next
em.Send

if err.number<>0 then

response.write err.number &"<br>"
response.write err.description
response.end
end if

[zero_sos]

gracias por todo.

Aun no me dice la descripcion del error solo dice:

There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Open the www.netservicescr.com home page, and then look for links to the information you want.
Click the Refresh button, or try again later.

Click Search to look for information on the Internet.
You can also see a list of related sites.




HTTP 500 - Internal server error
Internet Explorer



sin embargo miren el codigo:


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.AttachFile Server.Mappath("adjunto/"&Session("filename"))
em.bodyformat = 0
em.mailformat = 0
em.Body = text
em.Send

'Eliminando el fichero.
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.Deletefile(Server.Mappath("adjunto/"&Session("filename"))
Set oFSO = Nothing

if err.number<>0 then

response.write err.number &"<br>"
response.write err.description
response.end
end if



Bueno que opinan?

[zero_sos]

Sucede que el fichero que quiero enviar lo estoy subiendo por medio a un Chromless en la parte donde se edita el mail. El nombre del fichero lo capturo en el proceso. luego que la persona cierra el Chromless entonces le da a enviar y pues es cuando el hace el llamado del session("filename") para saber con el server.mappath donde esta y enviarlo adjunto.

[bakanzipp]

hhmmm..el error puede estar en varias partes...por ke mejor no lo troceas y ves donde se te cae



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

em.From = "[email protected]"
em.To = "[email protected]"
'em.Cc = "[email protected]"
em.Subject = "Información desde " & titulo

on error resume next
em.AttachFile Server.Mappath("adjunto/"&Session("filename"))

if err.number<>0 then

response.write err.number &"<br>"
response.write err.description &"<br>"
response.write "se cayo al atachar"
response.end
end if

em.bodyformat = 0
em.mailformat = 0
em.Body = text
on error resume next
em.Send
if err.number<>0 then

response.write err.number &"<br>"
response.write err.description &"<br>"
response.write "se cayo al enviar"
response.end
end if

'Eliminando el fichero.
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.Deletefile(Server.Mappath("adjunto/"&Session("filename"))
Set oFSO = Nothing

[zero_sos]

Hola...

fijate... Es en el Attach, pues ahora mismo acabe de comentar la linea donde esta y pues me di cuenta de que el problema esta con el Server.mappath por que la variable tiene el valor sin problemas.

osea el asunto estan en:

em.AttachFile Server.Mappath("adjunto/"&Session("filename"))


Algun comentario sobre esto????????

[bakanzipp]

hmmm...prueba asi

path= Server.MapPath("/adjunto/"&Session("filename"))

response.write path

em.AttachFile path

[zero_sos]

GLOOOOOOOOOOOOORIA A DIOSSSSSSSSSSSSSSSSSSSSSSSS.

Me ha funcionado, pero el problema es que cuando lo descargo no me descarga el fichero, sino que me descarga otro llamado GETMSG.COM, no entiendo por que por que ese no fue el que envie.

Cuando lo desgarga que lo ejecuto no hace nada, solamente me abre una ventana del sistema operativo DOS.

Que podria ser????, debo darle algun formato en especial???

Ahhhh y miles de gracias por la ayuda que me han proporcionado... creen tener respuesta para el nuevo error?

[bakanzipp]

ahi me pillaste...no entiendo el proceso que hacer al adjuntarlo con el crom no se que...

[zero_sos]

bueno mira... ahora mismo acabo de chequear y el lo esta subiendo sin problemas al hosting.

El problema esta cuando lo envia el CDONTS. Pues subi uno y no le dije que lo envie (pues al enviarlo lo borra) y pues lo abri desde mi explorer y todo sin problemas.

Osea que el problema es el envio del CDONTS.

[bakanzipp]

pero si no te tira error porke te atacha un file diferente?...

estas seguro que estas atachando el file correcto

[zero_sos]

Estoy 100% seguro de que esta adjuntando el fichero que es...

Y lo esta enviando pero no permite descargarlo, incluso me aparece mi archivo como adjunto, yo puedo ver su tamaño y el nombre y extension, todo sin problema. pero no me permite decargarlo.

Que seria?

[bakanzipp]

puede ser que lo este atachando mal.

probaste enviandolo a otro correo...o incluso probar con otro servidor smtp...

o por ultimo tratar de bajarlo presionando el boton derecho sobre el archivo y guardar como...

sino...como dices tu...algo raro pasa con el cdont...y eso...bueno...mejor que no sea ese el problema...

[zero_sos]

Hombre pues... Adivina...

Este asunto ya me funciona... mira el problema lo tiene cuando lo envia a Hotmail. Porque probe enviandolo a otro servidor smtp y pues funciono muy bien.

Creo que mientras tanto no tendre problemas con ello.

Gracias, gracias, gracias, gracias mil por tu ayuda.

Zero

[bakanzipp]

bueno ya sabes....
nunca enviar correos con atach a hotmail

jjaa....seria wena...

nos vemos