Enviar resultado de una busqueda por e-mail

04/09/2003 - 23:46 por Ivan Martinez | Informe spam

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!!!

Siga el debate

5 respuestas

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!!!

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!!!

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!

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!

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

> 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!

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida