Bueno pues despues de moverle por mucho un amigo me ayudo haciendo un script en perl que la verdad quedo de poca y si funciona sin necesidad de ningun cliente solamente de una libreria en perl que es Net:SMTP
les dejo el codigo. Pero porfa como me lo pasaron dejen el autor de este codigo. ya que lo paso de a free opensource.
archivo.pl
################################################## ###########################
#!/usr/bin/perl
###########
# Creado por:
# David Llamas
# 14 - Febrebro - 2005
##########
use Net::SMTP;
$msg="Mensaje a enviar";
sub smtp_email {
@mail_list = ('
[email protected]');
$smtpserver = 'smtp.mail.com';
$smtpuser = '
[email protected]';
$sender = Net::SMTP->new ($smtpserver, Timeout => 10);
$sender->mail ($smtpuser);
$sender->to ($mail_list[0]);
# $sender->to ($mail_list[1]); <-- este se aumenta dependiendo del numero de usuarios a enviarse
$sender->data ();
$sender->datasend ("From: mi\@correo.com\n");
$sender->datasend ("To: correo_destino\@mail.com \n");
$sender->datasend ("Subject: $msg \n");
$sender->datasend ("\n");
$sender->datasend ("$msg \n");
$sender->datasend ("\n");
$sender->dataend;
$sender->quit;
}
smtp_email($column[0], $column[4], $host);
################################################## #########################
Espero les sirva y gracias a quienes intentaron ayudarme.
salu2
