Foro - Perl en Español

por **majitop1986** » 2008-08-12 09:59 @458

¡¡Hola a todos...!! ¡soy yo de nuevo!

Tengo una pregunta, ¿qué módulo me recomiendan para que mi script en Perl me envíe [i]mails[/i] sencillos (sin archivos adjuntos o cosas por el estilo), a dos direcciones diferentes?

Estuve leyendo acerca de Email::MIME::Creator, pero éste trabaja con sendmail, y yo tengo instalado en mi servidor Linux postfix

, por lo mismo ¡pido su opinion! ¿qué me recomiendan?

Y tambien vale decir, ¡que utilizo el servidor SMTP externo!

#!/usr/bin/perl 
use strict;
use warnings;
use Mail::Sender;


my$sender=new Mail::Sender
{smtp =>'mail.mc', from =>'correo\@mail.mc'};
my$err=$Mail::Sender::Error;
my$sendto="pepito\@mail.mc";
my$copys="pepito\@mail.mc";
my$subject="ARCHIVO DESCUADRADO";
my$message="FAVOR CORROBORAR EL ARCHIVO ADJUNTO.";
my$file='c_cons.php';
$sender->MailFile({to =>$sendto,

                   cc =>$copys,

                   subject =>$subject,

                   msg =>$message,

                   file =>$file});Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **majitop1986** » 2008-08-12 11:08 @505

¡¡teco!! ¡gracias por el ejemplo...!

Te cuento que puse en practica el ejemplo pero tengo una duda... ¿¿¿no se debe poner algo cómo $sender->send(); o algo así??? Disculpa la ignorancia.

por **teco000** » 2008-08-12 11:13 @509

Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.

Albert Einstein (1879-1955) .

Con esta parte envías el correo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sender->MailFile({to =>$sendto,

                   cc =>$copys,

                   subject =>$subject,

                   msg =>$message,

                   file =>$file});Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por cierto, me faltó poner al final:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sender->Close;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **majitop1986** » 2008-08-12 11:19 @513

Te cuento, teco, que no me llega el correo. Mmmm y eso es lo extraño porque yo en el servidor tengo una aplicación en PHP que envía correos y funciona perfectamente... aquí te pongo el código que estoy usando para probar la librería.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w

use strict;
use warnings;
use Mail::Sender;

my$sender=new Mail::Sender

{smtp =>'mail.tel.net', from =>'[email protected]'};
$sender->MailFile({to =>'[email protected]',

        subject =>'prueba',

        msg =>'esto es una prueba'});

$sender->Close;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tampoco me bota ningún error. Por lo mismo, no sé qué pasa

por **explorer** » 2008-08-12 11:34 @523

Es mejor que uses MailMsg en vez de MailFile.

por **teco000** » 2008-08-12 11:41 @528

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$sender=new Mail::Sender
{smtp =>'mail.tel.net', from =>'mjroman\@tel.net'};
my$err=$Mail::Sender::Error;
my$sendto="mjroman\@tel.net";
my$copys="mjroman\@tel.net";
my$subject="prueba";
my$message="estpes una prueba";

$sender->MailMsg({to =>$sendto,

                   cc =>$copys,

                   subject =>$subject,

                   msg =>$message});
$err=$Mail::Sender::Error;
$sender->Close;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2008-08-12 11:48 @533

Con este código envías el mensaje y puedes ver si ocurre algún error (sacado de la sección de ejemplos de Mail::Sender)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;

use Mail::Sender;

my$sender= Mail::Sender->new();

if(
$sender->MailMsg({

        smtp    =>'mail.tel.net',

        from    =>'[email protected]',

        to      =>'[email protected]',

        subject =>'prueba',

        msg     =>'esto es una prueba',
})
< 0
){
die"ERROR: $Mail::Sender::Error\n";
}

print"Correo enviado\n";
__END__Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El Close() no te hace falta (según la documentación, MailMsg cierra $sender y envía el correo).

Foro - Perl en Español

Módulo de envío de emails + postfix

Módulo de envío de emails + postfix

Publicidad

¿Quién está conectado?