Enviar email con Windows en Perl

Introducción

Pues una de las preguntas más concurridas es ¿cómo puedo envíar mensajes con Windows? es por ello que decidí hacer un tutorial acerca de eso.

Para poder envíar mensajes con windows tenemos que hacerlo por medio de SMTP "Simple Mail Transfer Protocol", para hacer eso necesitamos que perl se comunique con el servidor.

En este tutorial voy a poner dos ejemplos sencillos usandos dos módulos distintos para que escojan el que más les interese o guste.

Usando Mail::Sendmail

Este módulo es de los más usados para envíar mensajes por medio de Windows, si no tienes este módulo instalado lo puedes encontrar en http://search.cpan.org/~mivkovic/Mail-Sendmail-0.79/Sendmail.pm.

Muy bien ahora aquí esta el ejemplo de como quedaría el script para envíar el email:

#!C:perlbinperl.exe -w

use strict;
use Mail::Sendmail;

# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para <EMAIL@DOMINIO.COM>',
From => 'De <EMAIL@DOMINIO.COM>',
Subject => 'Asunto del mensaje',
Message => 'Mi mensajes',
Smtp => 'mail.servidor.com'
);

# Envíar el mensaje
unless (sendmail(%mail)) {
# Error!
print "ERRORn";
exit(1);
}

# Envío correcto.
print "OKn";
exit(1);

Como ves es muy sencillo, nada más un detalle, en la variable de "smtp" si no pones la variable el default va a ser "localhost".

Usando MIME::Lite

Otro módulo famoso para estos casos y el cual me gusta más, si no lo tienes instalado lo puedes encontrar en http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm.

El código para envíar mensajes con este módulo es:

#!C:perlbinperl.exe -w

use strict;
use MIME::Lite;

$msg = MIME::Lite->new(
From =>'de@mydominio.com',
To =>'para@dominio.com',
Subject =>'Asunto del mensajes',
Data =>"Mi mensaje"
) ;

Continúa en la página siguiente

Usuarios que han visto este tema también han visto...

- Como Utilizar MySQL con Perl
- ¿Cómo enviar emails usando Perl y Sendmail?
- Desplegar HTML con Perl
- Variables de Entorno
- Buscar en un array en Perl

- Versión imprimible de este documento
- Enviar por e-mail este documento