Ver Tema - Como envíar un email a varios destinatarios

Mickz · 2005-12-15 19:46 @865

Hola a todos soy novato en PERL y tengo un problema con un cgi el cual tengo funcionando para
envio de un mail, pero lo que quiero es hacer que este funcione para varios destinatarios. pongo mi aplicacion para ver si alguien me puede ayudar :roll:

gracias.

aplicacion cgi

#/usr/local/bin/perl

use CGI;
$cgi=new CGI;

$sendmail="/usr/lib/sendmail";
$recommendSubject = "Una amiga quiere que visites beinggirl.net";
$recommendSender = "";
$recommendText = "------------------------------------------------------------".
"\n\n_MESSAGE_CONTENT\n\n".
"------------------------------------------------------------".

$relativeAddress="";
$recommendRedirect = $relativeAddress."";

sub validate_email {
$_ = shift;

return (m/^([A-Z0-9]+[._]?){1,}[A-Z0-9]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i);
}

$referer = $cgi->param('referer');

if ($referer eq "RECOMMEND") {

$subject = $recommendSubject;
$from = $recommendSender;
$to = $cgi->param('email');
$message = $cgi->param('message');
$content = $recommendText;
$redirect = $recommendRedirect;

$_ = $content;
s/_MESSAGE_CONTENT/$message/g;
$content = $_;

$isValidAddress = validate_email($to);

}
open (MAIL,"| $sendmail -i -t" );
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL $content;
close (MAIL);

print $cgi->header;
print "<html><head><meta http-equiv=\"refresh\" content=\"1; URL=$redirect\"></head></html>";
exit 0;

Aplicacion html
[/b]

monoswim · 2005-12-16 09:07 @421

Se me cocurre esto

Create un @to que tenga las direcciones a las cuales mandas el mail

foreach my $to (@to){

open (MAIL,"| $sendmail -i -t" );
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL $content;
close (MAIL);

}

Estás creando un mail por cada dirección, para crear el @to depende de como envíes los parámetros desde tu HTML...

Saludos

explorer · 2005-12-16 09:24 @433

En la variable $to agrega todas las direcciones, separadas por ';'. Si no te funciona así, prueba con ','.

Publicidad

Socializa