Foro - Perl en Español

por **nestaredon** » 2010-11-23 10:27 @477

Hola a todos,

Me preguntaba si existe algún módulo capaz de hacer un envío masivo de e-mails sin que sean etiquetados como SPAM. Muchas gracias.

Bienvenido a los foros de Perl en Español, nestaredon.

Que un correo sea etiquetado como SPAM depende del contenido, del idioma en que está escrito y de la dirección del servidor de correo que lo envía (el país donde se localiza ese servidor).

Luego, legalmente, también hay países que tienen regulado este tipo de envíos. En algunos de ellos, si se envía correo sin permiso de los destinatarios, puedes ganarte una pena de cárcel y/o una fuerte multa.

Como regla general, cualquier programa de los de listas de correo, te puede valer, como el antiquísimo majordomo, escrito en Perl, o el más moderno mailman, escrito en Python.

por **Fegna** » 2010-11-23 13:15 @593

Otra forma es hacerse un pequeño programa para que pueda enviarlo.

Un ejemplo sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:/perl/bin/perl.exe
 
use strict;
use MIME::Lite;
 
my (
        $mi_asunto, $mi_mensaje,
);
 
$mi_asunto = 'ASUNTO DEL CORREO';
 
# Abro un archivo HTML que contiene el template, donde los campos variables van entre corchetes. Ej: {RUT}
open(HTML, 'D:\EnvioMail\template.html');
while (<HTML>)
{
        $mi_mensaje .= $_;
}
close HTML;
 
open(MAIL_FILE, $ARGV[0]);
while (<MAIL_FILE>)
{
        my $line = $_;
        chomp($line);
        next if ($line =~ /^#/);
        my ($rut, $nombre, $email, $monto) = split(/;/, $line);
        
        my $asunto = $mi_asunto;
        my $mensaje = '';
        $mensaje = $mi_mensaje;
 
        $mensaje =~ s/{RUT}/$rut/;
        $mensaje =~ s/{NOMBRE}/$nombre/;
        $mensaje =~ s/{MONTO}/$monto/;
        $mensaje =~ s/{EMAIL}/$email/;
 
        my $mail = MIME::Lite->new(
                'To' => $email,
                'From' => '[email protected]', # Dirección de salida del correo
                'Subject' => $asunto,
                'Type' => 'text/html',
                'Data' => $mensaje,
                );
        print "Enviando a;$email;";
        $mail->send('smtp', 'localhost');
        print "Enviado\n";
}
close MAIL_FILE;
 
exit(0);
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Lo ejecuto como enviarmail.pl archivo.csv, donde archivo.csv van los datos de los correos a enviar (en el ejemplo, los campos son RUT, que es el DIN de Chile, nombre, email del destinatario y monto). Como es lógico, el archivo Perl debe ser guardado con el nombre enviarmail.pl, sino hay que colocar el nombre con el cual lo llamamos en lugar del señalado

por **explorer** » 2010-11-23 13:41 @611

Este tipo de programas sirven para enviar los mensajes uno a uno, por lo que si nestaredon quiere enviar 28.000 mensajes, suponiendo que cada mensaje tarde en salir un segundo, completará la tarea en poco más de 8 horas... y si hace cuentas de lo que le cuesta tener encendido su ordenador más la conexión a Internet, a lo mejor no le compensa.

En cambio, los programas de gestión de listas de correo suelen ser más inteligentes, y "agrupan" los mensajes enviados a cada dominio, para enviar un solo correo a todos los destinatarios de ese dominio.

Ejemplo: si tengo una lista con 28.000 usuarios, que todos ellos tienen como dirección de correo en los dominios de gmail.com, yahoo.com, hotmail.com y apple.com, el programa solo enviará 4 correos: por cada dominio, hará una conexión, y mandará la carta a todos los destinatarios de ese dominio.

(Bueno, en realidad serían más correos los que tendría que enviar, porque cada servidor admite solo un determinado número de destinatarios por cada envío).

De todas formas, muchas gracias por tu aporte, Fegna. Puede servir para muchos otros usos.

por **Fegna** » 2010-11-23 14:12 @633

Ufffff, yo lo envío a unos 80.000 :shock:

Pero la idea era esa, ayudar. Si le interesa y puede enviarlo así, puede utilizarlo; sino, puede tomar la idea, o desecharla.

por **Fegna** » 2010-11-24 11:51 @535

Ahora te puedo dar datos un poco más reales, con el método utilizado (a pesar de que lo hago sobre Windows, que es una desventaja grande) acabo de enviar 54.487 correos en 1 hora, 19 minutos (prueba de la potencia de Perl

)

por **explorer** » 2010-11-24 12:07 @546

No. No es muestra de la potencia de Perl, sino del tamaño de tu caudal de la conexión a Internet y de las prestaciones de tu MTA (de si es capaz de agrupar destinatarios. Tendrás que verlo en su log).

El cuello de botella casi siempre será Internet. Los ordenadores suelen ser mucho más rápidos que las conexiones y transmisiones. Prueba a recargar una página web que tengas cacheada en local, y luego la recargas pulsando Control o mayúsculas o pulsando F5 o Control+R (depende del navegador). Verás la diferencia. Dependes de la velocidad de las conexiones entre tu ordenador y tu MTA, y los retrasos que cada servidor, en cada nodo, agregue.

54.487 correos en 1 hora y 19 minutos son casi 12 correos por segundo. No está mal, casi se podría calcular el tamaño en bytes de cada mensaje.

por **nestaredon** » 2010-11-25 11:02 @501

¡Muchas gracias a los dos! Voy a intentar usar Majordomo pero la segunda idea me la guardo. Pronto os comentaré los resultados. ¡Un saludo!

por **explorer** » 2010-11-25 20:56 @914

Yo no usaría majordomo... es un software que no ha cambiado en diez años...

Hay otras distribuciones en Perl dedicadas a la gestión de listas de correo. Por ejemplo:

* Mail::SimpleList - Sencillo
* Siesta - Completo
* Mail::Salsa - Interesante
* Mail::Bulkmail - Platform independent mailing list module. Este es para enviar muchos, muchos correos. Algo así como más de 50.000 correos por hora.

y supongo que alguno más que se puede encontrar por CPAN.

Foro - Perl en Español

Envío masivo boletín de noticias

Envío masivo boletín de noticias

Publicidad

Re: Envío masivo boletín de noticias

Re: Envío masivo boletín de noticias

Re: Envío masivo boletín de noticias

Re: Envío masivo boletín de noticias

Re: Envío masivo boletín de noticias

Re: Envío masivo boletín de noticias

Re: Envío masivo boletín de noticias

Re: Envío masivo boletín de noticias

¿Quién está conectado?