Enviar Varios Emails

[Sonick]

Hola, a ver si alguien me puede ayudar, necesito saber donde puedo encontrar un ejemplo sobre como mandar e-mails a varias direcciones con ASP, basicamente se como se hace, el problema es el siguiente y lo planteo con un ejemplo asi me entienden: tengo una lista de direcciones pero el mensaje solo quiero enviarlo a las direcciones que yo elija con un checkbox, se entiende lo que pretendo hacer? por favor si alguien me puede decir donde puede haber un ejemplo o si me pueden dar una idea por aca. Muchas Gracias

[urjose]

a cada checkbox le asignas el valor del email

y luego en otra pagina

Arreglo=Split(Request.Form("Nombre_Checbox&qu ot;),", ")
For i=0 to Ubound(Arreglo)
'Codigo para envio de e-mail
NombreObjeto.To=Arreglo(i)
Next

para un ejemplo de envío de email con AspEmail:

<a href='ir.asp?http://www.aspemail.com' target='_blank'>http://www.aspemail.com...</a>

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[Sonick]

Urjose hola, te comento que el codigo que me diste me sirvio de maravilla, ahora tengo otro problema a ver si me podes ayudar, el tema es asi como te habia dicho anteriormente, lo que quiero es mandar un mensaje a las personas que solo yo selecciono de una lista, eso funciona perfecto el problema esta en que el mensaje llege con el nombre y el apellido de la persona que yo selecciono pero no eso no funciona ya que llega con el nombre y apellido de la primera persona que encuentra en la base de datos, se entiende mas o menos? te muestro el codigo que estoy utilizando a ver si sirve de ayuda:

[Sonick]

aca va el codigo:

&lt;%
Envio=Split(Request.Form(&quot;email&quot;),&quot; , &quot;)
For i=0 to Ubound(Envio)

Dim strTo, strSubject, strBody
Dim objCDOMail 'The CDO object

strBody = &quot;&lt;html&gt;&lt;body bgcolor='#FFFFCE'&gt;&lt;p aling='center'&gt;&lt;font face='arial' size='2'&gt;&lt;b&gt;Estimado &quot; &amp; Recordset1.Fields.Item(&quot;NOMBRE&quot;).Value &amp; &quot; &quot; &amp; Recordset1.Fields.Item(&quot;APELLIDO&quot;).Value &amp; &quot;&lt;/b&gt;&lt;/font&gt;&lt;/p&gt;&lt;p align='center'&gt;&lt;font face='Arial' size='2'&gt;&lt;b&gt;&quot; &amp; Request.Form(&quot;mensaje&quot;) &amp; &quot;&lt;/b&gt;&lt;/font&gt;&lt;/p&gt;&lt;p align='center'&gt;&amp;nbsp;&lt;/p&gt;&lt;p align='center'&gt;&lt;font face='Arial' size='1'&gt;El Casco&lt;/font&gt;&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;&quot;

Set objCDOMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)

objCDOMail.From = &quot;Turismo El Casco &lt;[email protected]&gt;&quot;
objCDOMail.To=Envio(i)
objCDOMail.Subject = &quot;Mensajero de ElCasco&quot;
objCDOMail.Body = strBody
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing


Next
%&gt;

[urjose]

El problema es que nunca te mueves por los registros.

Yo mejor meteria en los checkboxes la llave primaria de la tabla por ejemplo marcan el 1 3 5 suponiendo que esos numeros forman parte de la llave primaria.

ahora bien.

ya no vas a hacer el split ni nada de eso

SQL=&quot;SELECT * FROM TABLA WHERE CAMPO_PK IN(&quot;&amp;Request.Form(&quot;Nombre_Checkbox&q uot;)&amp;&quot;)&quot;

y ahora haces

DO WHILE NOT RS.EOF
'Aqui ahora si usas el Rs(&quot;Nombre&quot;) y todo lo demas, y en el mail en vez de usar Arreglo(i) vas a usar directamente el Rs(&quot;Email&quot;)
'bueno y todo lo demas del codigo de envío de mail
RS.MOVENEXT
LOOP


Saludos



<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[Sonick]

Urjose hermano, perdona que te moleste es que soy nuevo en esto, hice lo que me inidcaste pero me sale el siguien error

Syntax error (missing operator) in query expression 'CAMPO_PK IN([email protected])'

creo yo que debe ser por eso que dice &quot;CAMPO_PK&quot; o quizas, no se, por eso te pregunto jeje

Salu2

[urjose]

La consulta SQL que yo puse es un ejemplo.

Tienes que adaptarla a tu tabla, es lógio que no va a jalar.

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[Sonick]

aah, claro claro, ahora comprendo, pero ahora me sale otro error

Data type mismatch in criteria expression.

/msg_masivo_select.asp, line 10

&lt;%
...
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open() &lt;-- esa es la linea 10
...
%&gt;

ya no se que hacer

[urjose]

El problema es con la Query, debe ser algo asi como que los datos numéricos no llevan ' y los alfabeticos si, pero de todos modos ponla aqui.

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[Sonick]

si me di cuenta de eso y ya no me sale el error, el problema es que no envia los mails ahora, pongo el codigo para que lo veas:

&lt;%@LANGUAGE=&quot;VBSCRIPT&quot;%&gt;
&lt;!--#include file=&quot;Connections/mensajes.asp&quot; --&gt;
&lt;%
VarID=Request.Form(&quot;id&quot;)

set Recordset1 = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Recordset1.ActiveConnection = MM_elcasco_STRING
Recordset1.Source = &quot;SELECT * FROM miembros WHERE EMAIL IN('VarID')&quot;
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%&gt;

quizas hay algo mal en ese codigo, tambien pongo el codigo que envia el email:

&lt;%
Do While NOT Recordset1.EOF

Dim strTo, strSubject, strBody
Dim objCDOMail 'The CDO object

strBody = &quot;&lt;html&gt;&lt;body bgcolor='#FFFFCE'&gt;&lt;p aling='center'&gt;&lt;font face='arial' size='2'&gt;&lt;b&gt;Estimado &quot; &amp; Recordset1.Fields.Item(&quot;NOMBRE&quot;).Value &amp; &quot; &quot; &amp; Recordset1.Fields.Item(&quot;APELLIDO&quot;).Value &amp; &quot;&lt;/b&gt;&lt;/font&gt;&lt;/p&gt;&lt;p align='center'&gt;&lt;font face='Arial' size='2'&gt;&lt;b&gt;&quot; &amp; Request.Form(&quot;mensaje&quot;) &amp; &quot;&lt;/b&gt;&lt;/font&gt;&lt;/p&gt;&lt;p align='center'&gt;&amp;nbsp;&lt;/p&gt;&lt;p align='center'&gt;&lt;font face='Arial' size='1'&gt;El Casco&lt;/font&gt;&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;&quot;

Set objCDOMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)

objCDOMail.From = &quot;Turismo El Casco &lt;[email protected]&gt;&quot;
objCDOMail.To=Recordset1.Fields.Item(&quot;EMAIL&q uot;).Value
objCDOMail.Subject = &quot;Mensajero de ElCasco&quot;
objCDOMail.Body = strBody
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing

Recordset1.MoveNext
Loop
%&gt;

[urjose]

La verdad es que no veo ningun error en el código.

Sorry

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[Sonick]

ok urjose, gracias hermano, igual ya me has ayudado bastante, byes

[Sonick]

urjose, disculpa que te moleste otra vez, tengo otro problema, resulta que pude solucionar el problema del envio del mensaje, ahora lo envia correctamente y con el nombre de la persona correspondiente lo solucione de esta manera, pongo el codigo:

&lt;%@LANGUAGE=&quot;VBSCRIPT&quot;%&gt;
&lt;!--#include file=&quot;Connections/mensajes.asp&quot; --&gt;
&lt;%
Dim Recordset1__varID
Recordset1__varID = &quot;%&quot;
if (Request.Form(&quot;ID&quot;) &lt;&gt; &quot;&quot;) then Recordset1__varID = Request.Form(&quot;ID&quot;)

set Recordset1 = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Recordset1.ActiveConnection = MM_elcasco_STRING
Recordset1.Source = &quot;SELECT * FROM miembros WHERE &quot; + Replace(Recordset1__varID, &quot;'&quot;, &quot;''&quot;) + &quot; = ID&quot;
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%&gt;

ahi funcina de maravilla, el tema es que sólo funciona si envio el mensaje a una sola persona, si lo quiero enviar a dos personas sale el siguiente error:

Microsoft JET Database Engine error '80040e14'

Syntax error (comma) in query expression '3, 4 = ID'.

como podria solucionar ese error? gracias

salu2 ;)