Foro - Perl en Español

Hola, me gustaría saber cómo enviar un archivo a varias personas por e-mail desde Perl. Estado mirando algunos temas que se han publicado pero aparte de que no tengo muy claro cómo hacerlo me gustaría saber cuál es el mejor módulo hasta el momento para realizarlo. ¿El módulo MIME::Entity sería la mejor opción?

Cuando he tenido que enviar adjuntos por correo he usado el módulo MIME::Lite, muy sencillito de usar:

Para enviarlo a varias personas tienes varias opciones. Puedes crear una lista de direcciones en tu programa e ir enviando un mensaje a cada dirección en un bucle. También puedes (si tienes acceso a un servidor de correo), crear un alias en el servidor que distribuya el correo a todas las direcciones, entonces sólo necesitas enviar el correo al alias y el servidor se encarga de distribuirlo a las distintas direcciones. O puedes crear una lista de correo. Las dos últimas opciones nada tienen que ver con Perl, evidentemente.

Hay varios módulos para enviar correo. Yo he usado Email::Simple, Email::Simple::Creator y Email::Sender::Simple recientemente para crear y enviar correo, pero hay módulos más modernos.

Por ejemplo, uno de los últimos es Email::Stuff, que sirve para enviar correos de forma muy simple. Internamente, este módulo usa Email::MIME y Email::Send.

Para enviar un correo a varias personas, puedes agregar todas sus direcciones de correo, separadas por comas, en el campo Cc. O si no quieres que cada receptor del mensaje sepa a quienes más has enviado la carta, usa el campo Bcc. Será luego tu gestor de correo el que se encargue de hacer y enviar las copias.

MIME::Lite también te permite poner campos Cc y Bcc. Mira el ejemplo que viene en la sinopsis de MIME::Lite y verás que en el campo Cc hay indicadas dos direcciones.

Vale, usando el Email::Stuff he visto que el código sería algo así. Pero yo quiero mandar un archivo ¿Debería ponerlo en el apartado de attach? ¿Reconoce hotmail o tengo que configurar algo para eso?

Hola. Con el ejemplo que ha puesto natxo he intentado enviar esto tal cual, pero me dice:

"SMTP Failed to connect to mail server: Bad faile descriptor at line 15."

No sé, he probado tu código sin el HTML de las direcciones de correo y a mí me funciona (lo uso en Linux, no en Windows).

¡Ajá!, he verificado el problema en un Windows. Mirando la documentación del módulo (http://search.cpan.org/~rjbs/MIME-Lite- ... ME/Lite.pm):

And, if you're not on a Unix system, or if you'd just rather send mail some other way, there's always SMTP, which these days probably requires authentication so you probably need to say

MIME::Lite->send('smtp', "smtp.myisp.net",
AuthUser=>"YourName",AuthPass=>"YourPass" );

El problema es que los equipos con Windows no tienen un servidor SMTP de serie, el /usr/bin/sendmail que tienen todos los servidores UNIX/Linux. Así que tienes que añadir los datos de tu servidor SMTP para poder enviar el mensaje.

Para Windows, existe el ejecutable Blat que realiza una operación similar a sendmail.


Pero, sí, muchas veces es más cómodo indicar el servidor SMTP externo y dialogar con él de forma directa.

En el caso de usar Email::Stuff, hay que usar el método using() para indicar la forma de acceso:

using('SMTP', Host => 'smtp.servidor.org', username => 'Pollo', password => 'Poxa');

Vale, a ver. En principio usaré MIME::Lite. He estado mirando la página donde aparece este módulo en CPAN y como nunca he hecho nada de mandar mensajes pues tengo dudas.

1) Como me dijo Natxo tengo que añadir los datos de mi servidor. Por ejemplo, hotmail. En CPAN aparece que se debería definir en la última línea, ¿no?



pero ¿cómo debería definirlo? ¿Cómo sé cuál es el SMTP de hotmail, por ejemplo o el de cualquier dirección de mensajería? He mirado en Internet y pone que para hotmail es:


2) ¿Qué más datos necesitaría para realizar la configuración del servicio?

1) Debes poner uno de esos servidores de correo como segundo argumento del método send().

2) Te falta por indicar el nombre de usuario y contraseña para identificarte frente al servidor de correo. Quedaría algo así:


P.D. Extraído del último ejemplo de la sinopsis de MIME::Lite.

Vale el nombre de usuario y la contraseña se referiría a :

- usuario: mi dirección de correo([email protected])

- password: pepe