Foro - Perl en Español

Resulta que tengo este trozo de código:


pero resulta que a mi correo solo llegan dos correos... es decir, parece que no me envía todo, y mi @lista es:
.
.
.
.
Etc.... Etc..

Es bastante grande, de cientos de correos.. ¡¡ Qué será que puede pasar ??

Según la documentación, 'Data' indica el nombre de un archivo que contendrá el cuerpo del mensaje a enviar.

Pero tu lo que estás poniendo ahí es la dirección de correo del destinatario...

Mejor si pones esa dirección en el campo To.

Otra cosa... te recomiendo que edites tu mensaje y falsifiques las direcciones de correo que has puesto, si no quieres que los dueños de esas direcciones de correo reciban montañas de correo basura.

La verdad, quiero probar que me llegue el correo de esa persona a mi correo, es todo.
Por eso en Data solo pongo el correo y deberían llegarme 100, pero la verdad, solo llegan 2.

No estás "poniendo el correo" en Data.

Estás "poniendo la dirección de correo" en Data. Y Data no sirve para eso.

En Data tienes que poner el nombre de un archivo que contiene el cuerpo del mensaje. Pero no es la única manera de indicarle a MIME::Lite ese cuerpo.

Si quieres que el bucle envíe un correo a cada destinatario, solo puedes poner las direcciones en los campos To, Cc, y Bcc.

Y eso si quieres enviarles uno a uno, como está puesto en el bucle. Se pueden enviar a más destinatarios, por cada envío, pero eso es ya otra historia.

Yo no quiero que el correo le envie un email a cada destinatario...

Quiero que me envíe a mi un correo, para cada email y con el email de cada persona de la lista.

Pero solo me envía dos correos...

¡¡¡AAAhhh!!!

Entendido...

El error está en la línea 3, que debes escribirla así:

Gracias, gracias, pero qué raro...

Así debía funcionarme porque en mi clase base de CGI-App yo hice:



y en mi controlador lo llamé:

Sí que es raro, pero el problema principal es que estás usando el mismo nombre de variable escalar para dos cosas distintas: una cosa es el objeto MIME::Lite, y otra cosa es el objeto correo creado a partir de la llamada al método build().

Es mejor que cada cosa tenga su propio nombre.

Por ejemplo, para el objeto MIME::Lite, llámalo $mimelite, mientras que para crear el correo, puedes llamarlo $msg. Así sabes en cada momento a qué te refieres, porque sino, en la línea 12 del primer código, ¿a qué $msg haces referencia? ¿al que acabas de crear o al del objeto MIME::Lite?

Pero si se supone que declaro la variable local com my() dentro de bucle no debería tener problemas, ¿o sí?

(Has escrito dos '-')

Pues... no sé decirte... yo sospecho que en la segunda vuelta, el valor de $msg será el del valor de la $msg local de la primera vuelta... y quizás por eso falle en la segunda vuelta.

Ya digo que no sé... habría que ejecutarlo paso a paso con el depurador.