Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Enviar resultado de una busqueda por e-mail

04/09/2003 - 23:46 por Ivan Martinez | Informe spam
Ayuda Hacer una pregunta
Estimados amigos...!!!

como puedo enviar el resultado de una busqueda en una base de datos por
correo electronico usando CDONTS o CDMail... alguien tiene idea... de verdad
no se por donde comenzar...

el ciclo do while funciona dentro de Ob.CDO????

Gracias!!!
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Insomnia
05/09/2003 - 01:33 | Informe spam
si mal no te he entendido... una posible solución es construir con los datos
de la busqueda una variable con el cuerpo del mail, concatenando el
contenido e integrando con los resulta2
para posteriormente simplemente enviarlo con CDONTS


body = "<html>"
bod = body + "<head>"
"Ivan Martinez" escribió en el mensaje
news:
Estimados amigos...!!!

como puedo enviar el resultado de una busqueda en una base de datos por
correo electronico usando CDONTS o CDMail... alguien tiene idea... de


verdad
no se por donde comenzar...

el ciclo do while funciona dentro de Ob.CDO????

Gracias!!!


Respuesta Responder a este mensaje
#2 joslpe
05/09/2003 - 10:09 | Informe spam
Hola!!

A ver si te sirve esto:

Puedes concatenar el resultado de una busqueda en un string, y enviar
el resultado a traves de CDONTs. con un Script como este.

No todas los Hostings permiten el envio de Correo a traves de CDONTS,
en algunos casos Tienes que utilizar un Componente que este instalado
en el servidor como (ASPEmail, etc..), para eso tienes que ponerte en
contacto con tu hosting para ver cual tienes que utilizar. Aunque la
manera de enviar con uno o con otro son similares.

<%
Dim myMail

'crea el objeto
Set myMail = CreateObject("CDONTS.NewMail")

myMail.From = ""
myMail.To = ""
myMail.Subject = "Aqui el asunto"



'agregamos la cadena creada al objeto
myMail.Body= "Contendido del Mensaje"

'mandamos el email
myMail.Send
%>




Espero que te sirva

Un Saludo

"Ivan Martinez" wrote in message news:...
Estimados amigos...!!!

como puedo enviar el resultado de una busqueda en una base de datos por
correo electronico usando CDONTS o CDMail... alguien tiene idea... de verdad
no se por donde comenzar...

el ciclo do while funciona dentro de Ob.CDO????

Gracias!!!
Respuesta Responder a este mensaje
#3 Ivan Martinez
05/09/2003 - 20:23 | Informe spam
Muchas gracias por sus respuestas aunque creo que no me entendieron la
pregunta ;-)

La reformulo Quiero saber como puedo enviar el contenido de una base de
datos a traves de un correo
Ejemplo:


myMail.From = ""
myMail.To = ""
myMail.Subject = "Aqui el asunto"

myMail.Body= CONTENIDO DE LA BASE DE DATOS FILTRADA POR UN WHERE

Gracias

Ivan!
Respuesta Responder a este mensaje
#4 joslpe
07/09/2003 - 00:30 | Informe spam
Hola de nuevo!!.

no se si te he entendido bien, pero creo que lo que quieres es enviar
el resultado de una consulta a la base de datos por email???

En este caso haria algo como esto..

<%
dim objConexion, objRs
set objConexion = server.createObject("ADODB.Connection")
set objRs = server.createObject("ADODB.Recordset")
objConexion.ConnectionString = "DSN=mi.base.de.datos"
objConexion.open

dim stSql
stSql = "select ID, Campo1, Campo2 from TABLA_DATOS where Campo
='loquesea'"

objRs.open stSql, objConexion


dim stContenido


stContenido = ""
while not objRs.eof

'concateno los campos de cada registro separados por el caracter - y
cada registro separado por un salto de linea vbCr


stContenido = stContenido & objRs("ID") & "-" & objRs("Campo1")
& "-" & objRS("Campo2") & vbCr
objRs.Movenext
wend

objConexion.close
set objConexion = nothing
%>



luego mando stContenido como body del email. Otra opcion seria generar
un fichero con el resultado y mandarlo como attachment (Cdonts tiene
un metodo attach).




"Ivan Martinez" wrote in message news:<Oc#...
Muchas gracias por sus respuestas aunque creo que no me entendieron la
pregunta ;-)

La reformulo Quiero saber como puedo enviar el contenido de una base de
datos a traves de un correo
Ejemplo:


myMail.From = ""
myMail.To = ""
myMail.Subject = "Aqui el asunto"

myMail.Body= CONTENIDO DE LA BASE DE DATOS FILTRADA POR UN WHERE

Gracias

Ivan!
Respuesta Responder a este mensaje
#5 Ivan Martinez
08/09/2003 - 20:46 | Informe spam
Gracias voy a probarlo!!!

Ivan!


"joslop" escribió en el mensaje
news:
Hola de nuevo!!.

no se si te he entendido bien, pero creo que lo que quieres es enviar
el resultado de una consulta a la base de datos por email???

En este caso haria algo como esto..

<%
dim objConexion, objRs
set objConexion = server.createObject("ADODB.Connection")
set objRs = server.createObject("ADODB.Recordset")
objConexion.ConnectionString = "DSN=mi.base.de.datos"
objConexion.open

dim stSql
stSql = "select ID, Campo1, Campo2 from TABLA_DATOS where Campo
='loquesea'"

objRs.open stSql, objConexion


dim stContenido


stContenido = ""
while not objRs.eof

'concateno los campos de cada registro separados por el caracter - y
cada registro separado por un salto de linea vbCr


stContenido = stContenido & objRs("ID") & "-" & objRs("Campo1")
& "-" & objRS("Campo2") & vbCr
objRs.Movenext
wend

objConexion.close
set objConexion = nothing
%>



luego mando stContenido como body del email. Otra opcion seria generar
un fichero con el resultado y mandarlo como attachment (Cdonts tiene
un metodo attach).




"Ivan Martinez" wrote in message


news:<Oc#...
> Muchas gracias por sus respuestas aunque creo que no me entendieron la
> pregunta ;-)
>
> La reformulo Quiero saber como puedo enviar el contenido de una base


de
> datos a traves de un correo
> Ejemplo:
>
>
> myMail.From = ""
> myMail.To = ""
> myMail.Subject = "Aqui el asunto"
>
> myMail.Body= CONTENIDO DE LA BASE DE DATOS FILTRADA POR UN WHERE
>
> Gracias
>
> Ivan!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida