Ayuda con ASPeMail + bases de datos

ashketchum · #1 (**permalink**) 13/05/2002, 10:44

Hola a todos, y gracias por anticipado sabes mi problema es el siguiente, espero que puedan ayudarme tengo el siguiente código que se supone que debe de enviar un mail a cada 1 de los usuarios registrados en la DB que tengo, pero el problema es que si envia el mail, pero repetitivo, o sea, al primer usuario en la DB le envia 1 solo correo, al segundo usuario le envia el del primero y el segundo, y asi se va consecutivamente, y ya no se por donde buscarle, imaginense tengo alrededor de 10000 usuarios, no quiero imaginar cuanto correo le llegara al ultimo usuario espero y me puedan ayudar por favor este es el código de envio, bueno lo metere en otro post porque aqui ya no cabe

ashketchum · #2 (**permalink**) 13/05/2002, 10:47

Código:

 &lt;%
'...
Set Mail = Server.CreateObject(&quot;Persits.MailSender&quot;)
Mail.Host = &quot;mail.velazquez.com.mx&quot;
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From = &quot;[email protected]&quot;
Mail.FromName = &quot;Manuel Meneses (ashketchum)&quot;
Mail.Subject = &quot;Prueba de mail&quot; 
'Mail.Body = &quot;&lt;HTML&gt;&lt;BODY BGCOLOR=#000000&gt;&lt;font face = verdana color = #00FF00&gt;Estimado Sr: Meneses&lt;/font&gt;&lt;/BODY&gt;&lt;/HTML&gt;&quot;
Mail.Body = &quot;&lt;html&gt;&lt;body bgcolor = 000000&gt;&lt;font face = verdana color = #00FFF0 size = 2&gt;Es una prueba para envio de mail masivo de la DB de candidatos&lt;/font&gt;&lt;br&gt;&lt;br&gt;&lt;img src = http://www.efrance.fr/masteraspx/images/logomasterASP.jpg&gt;&lt;/body&gt;&lt;/html&gt;&quot;
Mail.IsHTML = True
Response.Write &quot;Hola Manuel, el correo ha sido enviado a las siguientes direcciones&quot;
Response.Write &quot;&lt;br&gt;&quot; &amp; &quot;&lt;br&gt;&quot;
While Not (EnvioMail.EOF)
direccionmail = (EnvioMail.Fields.Item(&quot;Email&quot;).Value)
'Response.Write (EnvioMail.Fields.Item(&quot;Email&quot;).Value) &amp; &quot;&lt;br&gt;&quot; &amp; &quot;&lt;br&gt;&quot;
Mail.AddAddress direccionmail ', &quot;Ejecutivos de VELAZQUEZ&quot; &quot;[email protected]&quot;, &quot;Destinos&quot;
EnvioMail.MoveNext()
Mail.Send
Wend

On Error Resume Next
Mail.SendToQueue

If Err &lt;&gt; 0 Then
Response.Write &quot;An error occurred: &quot; &amp; Err.Description 
End If 
'...
%&gt;

creo que el problema esta en el While, pero no se porque, de antemano muchas gracias

saludos y suerte

<img src="http://www.efrance.fr/masterASPx/firma.jpg" width="465" height="79" border="0" usemap="#URL">
<map name="URL">
<area shape="rect" coords="270,48,347,61" href="http://www.efrance.fr/masteraspx" target="_blank">
</map>

bakanzipp · #3 (**permalink**) 13/05/2002, 11:01

oye esto no lo habia visto antes

EnvioMail.Fields.Item("Email").Value

a los mas para ver el campo de un recorset le hacia esto

EnvioMail.Fields("Email")
ó
EnvioMail.("Email")

envioEmail.movenext

ke te arroja el response.write ke tienes comentado?

ashketchum · #4 (**permalink**) 13/05/2002, 11:12

Ese response.Write (EnvioMail.Fields.Item("Email").Value) & "<br>" & "<br>" me indica segun a que direcciones ya se ha enviado el mail

saludos y suerte

<img src="http://www.efrance.fr/masterASPx/firma.jpg" width="465" height="79" border="0" usemap="#URL">
<map name="URL">
<area shape="rect" coords="270,48,347,61" href="http://www.masteraspx.tk" target="_blank">
</map>

susa · #5 (**permalink**) 13/05/2002, 16:22

No se si te sirve, para enviar email por aspemail a mucha gente, he creado un include(correo.inc) con una funcion a la que le paso todos los parametros y cada vez que envio un email en el correo.inc instancio el aspemail y lo proceso, si no era asi en addadress acumulaba las direcciones de correo y las envia repetidamente.
Quizas lo hayo mal y es mas lento pero me aseguro de enviar solo un correo cada vez al usuario correspondiente.

ashketchum · #6 (**permalink**) 14/05/2002, 13:31

Hola susa, podrias decirme como lo hiciste por favor, espero que puedas ayudarme

saludos y suerte

<img src="http://www.efrance.fr/masterASPx/firma.jpg" width="465" height="79" border="0" usemap="#URL">
<map name="URL">
<area shape="rect" coords="270,48,347,61" href="http://www.efrance.fr/masteraspx" target="_blank">
</map>

jasistemas · #7 (**permalink**) 14/05/2002, 15:57

prueba metiendo tu "create Object" dentro del ciclo.. ya que asi, nunca clareaste los recipientes y, obviamente,, cada nuevo recipiente se va agregando al anterior... a menos que exista un metodo para darle "clear"..

ashketchum · #8 (**permalink**) 14/05/2002, 16:19

Hola JSistemas, ¿Create Object, como?, puedes decirme como se implementa esto en el código por favor

de antemano gracias

saludos y suerte

<img src="http://www.efrance.fr/masterASPx/firma.jpg" width="465" height="79" border="0" usemap="#URL">
<map name="URL">
<area shape="rect" coords="270,48,347,61" href="http://www.efrance.fr/masteraspx" target="_blank">
</map>