Re: Email a todos

[Gregory Cascante Aviles]

Mae aqui le mande un scrip que yo uso para eso ...

Solo tiene que cambiar las variables dentro del scrip....






att. Gregory Cascante

On Mon, 11 Sep 2000, Pablo Ugalde Trejos wrote:

> Se�ores,
> 
> Aqu� trabajajos con sendmail y necesitamos enviar un correo masivo a todos
> los usuarios.  Alguien tiene por ah� un script o alguna forma de hacer esto.
> 
> Muchas Gracias
> -----------------------------------------
> Pablo Ugalde Trejos
> 
> Area de Desarrollo
> Direcci�n de Sistemas
> Universidad Interamericana de Costa Rica.
> Tel (506)2614242 ext 233
> Fax (506)2613212
> 
> El �nico hombre que no se equivoca
> es el que nunca hace nada.
> -----------------------------------------
> 
> 
> --
> �Desea desuscribirse? Escriba a [EMAIL PROTECTED] con
> el tema "unsubscribe".
> 

#!/usr/bin/perl 


####################################
# Autor: Gregory Cascante Aviles
# Date:  Jueves 6 de Abril 2000
# Universidad Latina de Costa Rica
####################################

my $smail    = '/usr/lib/sendmail -t';
$passwd_file = "lista.txt";
#$passwd_file = "test.txt";
$mensaje     = "mensaje.txt";


open(MENSAJE,$mensaje) || die "\n No puedo ver el mensaje \n";

@cuerpo = <MENSAJE>;

print @cuerpo;


open(FILE_HANDLE,$passwd_file) || die "\n No puede habrir: $passwd_file \n";
$from = "grecasav\@ns.domus.ac.cr";
$cont = 1 ;




while (<FILE_HANDLE>)
      {
      chomp;
      @lista = split/:/,$_;            
      open (MAIL_to_greg, "|$smail");
          print MAIL_to_greg "From: $from \n";
          print MAIL_to_greg "To: $lista[0]\n";
          print MAIL_to_greg @cuerpo;
      close (MAIL_to_greg);
      print "Send: $cont --> $lista[0]\n";
#      print "\@ns.domus.ac.cr\n";
      $cont++;
      sleep(5);
      }