Foro - Perl en Español

por **Leotrillo** » 2011-07-14 06:27 @310

Hola, tengo un problema con el envío de correos pero solo con los CC, todo lo demás me funciona bien pero cuando paso la lista para enviar en copia solo le llega al primero que hay en la lista, he probado casi todos los separadores, coma, punto y coma, escapándolos para que no sean interpretados, pero nada, ¿tenéis alguna idea? Os paso mi script. Y de paso si le sirve a alguien, perfecto.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

################ librería ################
use MIME::Lite;
use Net::SMTP;
use Authen::SASL;
 
sub send_mail_to {
 
        my $sender   = "$_[0]";
        my $receiver = "$_[1]";
        my $cc       = "$_[2]";
        my $subject  = "$_[3]";
        my $body     = "$_[4]";
 
                
        my $ServerName    = "XXXXX";
        my $ServerAccount = "XXXXXXXXXX";
        my $ServerPwd     = "XXXXXXXXX";
        my $smtp          = "";
 
        eval {
                $smtp = Net::SMTP->new( $ServerName, Hello => "XXXXXXX", Debug => 1 );
                die "Couldn't connect to server" unless $smtp;
        };
        if ($@) {
            print " ERRROR EN EL CORREO\n";
        }
        else {
 
        if ( !$smtp->auth( $ServerAccount, $ServerPwd ) ) {
                print "";
        }
        if ( !$smtp->mail($sender) ) {
                print "";
        }
        if ( !$smtp->to($receiver) ) {
                print "";
        }
                 if ( !$smtp->to($cc) ) {
                print "";
        }
 
        my $mime_msg = MIME::Lite->new(
                From    => "$sender",
                To      => "$receiver",
                   Cc      => "$cc",
                Subject => "$subject",
                Type    => 'multipart/mixed',
        );
 
        $mime_msg->attach( Type => 'text/html', Data => qq {$body} );
 
        my $message_header = $mime_msg->header_as_string();
        my $message_body   = $mime_msg->body_as_string();
 
        $smtp->data();
        $smtp->datasend($message_header);
        $smtp->datasend("\n");
        $smtp->datasend($message_body);
        $smtp->dataend();
        $smtp->quit;
        }
}
1;
################ Fin librería ################
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y con un .pl accedo a ella de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#############################################################
require "/var/www/html/gp/enviocorreosgp.lib";
 
my $xto = "$ARGV[1]";
my $cc  = "$ARGV[2]";
my $motivo = "Un motivo cualquiera";
my $body =" Cuerpo del mensaje";
                        
&send_mail_to("micorreo\@hotmail.com","$xto","$cc","$motivo","$body")
###########################################################
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No lo hago con hotmail, es solo por poner algo, cambiando los parámetros por los que usa cada uno se podría enviar correo autenticado, pero el $cc se me resiste. De todas formas en el correo que se envía sí que aparece la lista en el CC pero en realidad no los está enviando. ¿Tenéis alguna idea?

Muchas gracias ;-)

#############################################################
require '/var/www/html/gp/enviocorreosgp.lib';
     
my $xto = $ARGV[1];
my $cc  = $ARGV[2];
my $motivo = 'Un motivo cualquiera';
my $body   = 'Cuerpo del mensaje';
                           
&send_mail_to('[email protected]', $xto, $cc, $motivo, $body);
###########################################################
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y esta es la de la biblioteca (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

################ biblioteca ################
use MIME::Lite;
 
sub send_mail_to {
    my($sender, $receiver, $cc, $subject, $body) = @_;
 
    my $ServerName    = 'XXXXX';
    my $ServerAccount = 'XXXXXXXXXX';
    my $ServerPwd     = 'XXXXXXXXX';
 
    my $mime_msg = MIME::Lite->new(
        From    => $sender,
        To      => $receiver,
        Cc      => $cc,
        Subject => $subject,
        Type    => 'multipart/mixed',
    );
 
    $mime_msg->attach( Type => 'text/html', Data => $body );
 
    $mime_msg->send(
         smtp     => $ServerName,
         AuthUser => $ServerAccount,
         AuthPass => $ServerPwd,
         Timeout  => 30,
         Debug    => 1,
     );
}
 
1;
################ Fin biblioteca ################
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Fíjate que no hay ni una sola comilla doble. Solo hay comillas simples cuando necesitamos pasar valores constantes.

Hay que recordar que el entrecomillado doble, además de delimitar cadenas de caracteres, hace una interpretación de su contenido, lo cual a veces no es lo que deseamos que pase.

En cuanto al campo Cc, debería bastar con pasar las direcciones separadas por comas. Con el Debug activado, mira a ver qué salida te da y nos lo muestras. Quizás sea una limitación del servidor de correo.

por **Leotrillo** » 2011-07-14 12:16 @553

Perfecto, me ha funcionado sin problemas, sería mi script, seguro.

Muchas gracias, explorer.

Foro - Perl en Español

Envío autenticado de correo bien, pero no envía el CC

Envío autenticado de correo bien, pero no envía el CC

Publicidad

Re: Envío autenticado de correo bien, pero no envía el CC

Re: Envío autenticado de correo bien, pero no envía el CC

¿Quién está conectado?