Adjuntar Imagen y enviar por mail con Cdo

[Sonda]

Gente grandiosa

Como puedo definir esto con un Rs. para que la imagen adjunta sea la que realmente la que se subio al servidor?

muchas gracias Gente

obj.AddAttachment= Server.MapPath(".\Propuestas\x.jpg")

Como siempre
Muchas gracias por la ayuda

[Adler]

Iniciado por Sonda

Gente grandiosa

Como puedo definir esto con un Rs. para que la imagen adjunta sea la que realmente la que se subio al servidor?

No tengo clara tu pregunta, así que supongo que te refieres a apuntar hacia la ruta virtual de la imagen, sacandola de una consulta

obj.AddAttachment= Server.MapPath(".\Propuestas\"&rs.Fields("img")&". jpg")

Pero con esa ruta no lograrás que se muestre la imagen

obj.AddAttachment= "http://tusitio/Propuestas/"&rs.Fields("img")&".jpg"

Aunque seguramente, el gestor de correo bloquee la imagen y será el usuario el que tendrá que desbloquearla manualmente.

Suerte

[Sonda]

Ante todo muchas gracias Adler era exactamento lo que queria saber, muchisimas gracias. Tratare de ser mas claro la proxima. mil gracias

[Sonda]

Hola man te hago una consulta: mira el mail llega bien pero sin la imagen que puede ser no tira error pero no llega adjunta

Tengo un campo en la base que se llama "Images" y otro "Filtype" el primero se refiere al nombre de la imagen el segundo el tipo de archivo entonces en el código
lo escribo asi

obj.AddAttachment "http://www.goldcash117.com/Propuestas/"&rs("Images")&"."& rs("Filtype")

De esta manera el mail no llega a destino

De esta si

obj.AddAttachment "http://www.goldcash117.com/Propuestas/"&RS("Images")&".jpg"

que puede ser Man?

MUCHAS GRACIAS Y ABRAZO

[Adler]

Hola

Haz una prueba de escritorio a ver si es que Filtype está vacío

http://www.goldcash117.com/Propuestas/<%rs.Fields("Images")%>.<%rs.Fields("Filtype")%>

Ya me contarás

Suerte

[Sonda]

Grcias Adler ya lo estoy probando.

[Sonda]

Nada la verdad que me tiene bastante cansado ja!!! no de esta manera no llega el mail a destino

[Shiryu_Libra]

te sale un cuadro con una "X" roja en la esquina superior izquierda?
haz comprobado que el RS, te da directamente a la imagen?
estas imagenes, si estan dentro de la carpeta propuestas?

[Sonda]

No la x no la muestra.
Si la imagen esta por que hice la prueba de mandar con el código basico
obj.AddAttachment "http://www.goldcash117.com/Propuestas/"imagen.jpg"
y la imagen llega adjunta al dire de mail
Si el Rs es el mismo que uso para mostrar el resultado de un Upload que hice para otras paginas en la misma Web
El código es este
<img src="Propuestas/<%=RS("Images")%>.<%=RS("Filtype")%>" height=100 width=100 border=0 alt="Pulsa para ampliar">

[Sonda]

De hecho en la pagina de confirmación puse el mismo campo de imagen para que me muestre si la imagen subio al directorio y eso funciona bien

[Adler]

Hola, prueba a escribir la extensión de la imagen a una de ellas en el campo Images y adjuntala, a ver que pasa.

El resultado de la cadena ahora ha de ser

http://www.goldcash117.com/Propuestas/<%rs.Fields("Images")%>

Si así funciona, entonces en el campo Images tendrá que estar tanto el nombre como la extensión de la imagen, que por otro lado es lo mas practico. A no ser que haya algo que te fuerce a tenerlos en dos campos distintos.

Suerte

[Sonda]

Hola todos aunque no lo crean sigo con lo mismo.
Adler hice lo que me recomendaste pero solo me llega un registro que tengo en un directorio y a su vez en una base de datos
que es una imgen que se llama "1.jpg"
hago un Upload con distintas imagenes pero siempre me muestra el mismo registro

Ahora hago una consulta: porque de esta manera la imagen adjunta llega a la bandeja de mail?...

obj.AddAttachment Server.MapPath(".\Propuestas\"& RS("Images"))
de esta manera la imagen llega a destino pero es siempre el primer registro y no mas.
intente hacerlo tambien con :session("Images") pero no hubo caso.



y de esta no? no llegan la imagen adjunta.

'obj.AddAttachment obj.AddAttachment "http://www.goldcash117.com/Propuestas/"&RS("Images")&".jpg"
o asi
"http://www.goldcash117.com/Propuestas/"&RS("Images").

[Sonda]

Perdon asi es como envia la imgen de esta manera la imagen adjunta llega a destino pero siempre es el mismo registro osea mismo nombre de imagen

obj.AddAttachment Server.MapPath("./Propuestas/"& RS("Images"))

intente tambien agregar el id de la imagen de esta manera

obj.AddAttachment Server.MapPath("./Propuestas/"& RS("id") & RS("Images"))

Pero el error que me tira es que no encuentra el archivo especificado.

[Shiryu_Libra]

veamos.....

siempre es la misma foto.... anexa tu codigo de lectura a la base de datos

en relacion a lo que mencionaste de anexar el "ID", logicamente te dara error, ya que no tienes una imagen que tenga el numero de ID + Nombre de la imagen

[Sonda]

Este el código de consulta a la base que hago

dim s
ruta="./images.mdb"


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(ruta)
Set rs= Server.CreateObject("ADODB.Recordset")

s = "SELECT Images from Pro"

rs.Open s, oConn

[Adler]

Hola

Es normal que la consulta te arroje únicamente un registro. Añade esto a tu código, es un bucle para mostrar todas la imagenes que tienes en la tabla

Do While not rs.eof
%>
<%=rs("imagen")%>
<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
oConn.Close
set oConn = Nothing
%>

y en vez de

s = "SELECT Images from Pro"

esto otro

s = "SELECT Images from Pro where campo = '"&variable&"'"

Suerte

[Sonda]

Querida gente alfinal despues de luchar tanto me di cuenta de que era mucho mas facil todo esto de subir el archivo al servidor y enviar via mail con el objeto CDONTS
que con el CDO al menos a mi me resulto, pero el inconveniente que tenia era que el hosting donde esta alojada la página no acepta el Componente CDONTS hice la prueba en otro Hosting donde si funciona asi que me sirve de escusa para cambiar de alojamiento, no es que voy a cambiar todo el sitio solo x esto si no porque me trajo muchos dolores de cabeza en una semana se callo dos veces.
En fin para todo aquel que le interese tengo el Código completo para pasar para que no sufran lo que he sufrido I' Dejo mi mail para que me escriba todo aquel que lo necesite [email protected]
Hasta la vista y gracias a todos lo que me ayudaron.