Foro - Perl en Español

por **jcarranza** » 2010-04-28 05:53 @287

Hola, estoy probando un script en Perl para enviar un email.
De momento he programado esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:perlbinperl.exe -w 
use strict;
use Mail::Sendmail;
 
# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para [email protected], 
From => 'De webmaster@posadasantelmo.com, 
Subject => 'Prueba de Mensaje',
Message => 'Hola, esto es una prueba', 
#he quitado la variable Smtp
);
 
# Envíar el mensaje
unless (sendmail(%mail)) 
{
# Error!
print "ERROR \n";
exit(1);
}
 
# Envío correcto.
print "OK \n";
exit(1);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Pero no me funciona... ¿Qué está mal?

¡¡Saludos!!

#!C:perlbinperl.exe -w 
use strict;
use Mail::Sendmail;
 
# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para [email protected]', 
From => 'De [email protected]', 
Subject => 'Prueba de mensaje',
Message => 'Mi mensaje de prueba. Adios', 
 
);
 
# Envíar el mensaje
unless (sendmail(%mail)) {
# Error!
print "ERROR \n";
exit(1);
}
 
# Envío correcto.
print "OK \n";
exit(1);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿¿Qué hago mal??

por **explorer** » 2010-04-28 07:55 @371

Pues que el programa ha intentado conectarse a un servidor de correo que esté en tu propia máquina (localhost), y ha fallado porque no ha encontrado ninguno.

Deberías indicarle al módulo la dirección de algún servidor de correo... o instalar uno en tu propio ordenador.

Repasa la configuración de los parámetros que puedes usar en el módulo Mail::Sendmail, sobre todo en lo referente a tener que editar el propio módulo Sendmail.pm para indicar dónde están los servidores de correo.

Este módulo ya es algo viejo. Te recomiendo que uses otro más moderno, como por ejemplo, de la rama Email:: (Email::Sender, por ejemplo).

En Enviar Mail con archivo adjunto tienes un ejemplo de módulos de envío de correo.

por **aivdeveloper** » 2010-11-09 08:47 @408

explorer, usando Sendmail tengo un problemita y es que el texto que le paso a Message, si contiene tildes y "caracteres especiales" luego me aparecen mal del tipo Â~ ...

¿cómo puedo decirle el charset o algo para que lo pinte bien?

Gracias.

por **aivdeveloper** » 2010-11-09 08:52 @411

Solucionado,

Al principio he puesto use utf8;

Gracias, pues lo he encontrado en este foro.

por **explorer** » 2010-11-09 08:57 @415

Bienvenido a los foros de Perl en Español, aivdeveloper.

Encantados de haberte podido ayudar, aivdeveloper.

La indicación del charset, creo que tendría que ser en alguna de las cabeceras MIME del correo.

Con el use utf8; estás indicando que el ->tú<- programa contiene textos en codificación utf8.

Pero no creo que el módulo de correo se entere de que tiene que poner ese charset.

por **panterozo** » 2010-11-23 01:09 @089

Les dejo un módulo excelente:

Actualmente estoy utilizando Net::SMTP::TLS, donde te puedes conectar al correo de Google, y enviarte emails desde tu cuenta de Google, valga la redundancia. Más que útil.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Net::SMTP::TLS;
my $mailer = new Net::SMTP::TLS(
    'smtp.gmail.com',
     Hello   =>      'smtp.gmail.com', 
     Port    =>      587, 
     User    =>      'tu_user', 
     Password=>      'tu_pass'); 
$mailer->mail('[email protected]'); 
$mailer->to('[email protected]');
$mailer->data;  
$mailer->datasend($TO);
$mailer->datasend("From: Panterozo\r\n");
$mailer->datasend("Mime-Version: 1.0\r\n");
$mailer->datasend("Content-Type: text/html; charset=\"ISO-8859-1\"\r\n");#Para usar html
$mailer->datasend("Subject: Asunto del email\r\n\n");
$mailer->datasend($email); #Lo que quieras enviar
$mailer->dataend;  
$mailer->quit;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡¡Saludos!!

Foro - Perl en Español

Enviar email con Perl

Enviar email con Perl

Publicidad

Re: Enviar email con Perl

Re: Enviar email con Perl

Re: Enviar email con Perl

Re: Enviar email con Perl

Re: Enviar email con Perl

Re: Enviar email con Perl

Re: Enviar email con Perl

¿Quién está conectado?