miércoles, 28 de septiembre de 2011

Enviando correos con acentos

De vez en cuando se presentan eventos del sistema en los cuales es necesario notificar a los usuarios en forma automática. Nada más fácil que hacer un programa en perl. Sin embargo, no había encontrado la forma de enviar acentos... hasta ahora :-)
#!/usr/bin/perl -wl
#
#

use Mail::Mailer;

my $mailer = Mail::Mailer->new;
$mailer->open(
    {'From'=>"remitente\@do.main.mx",
         'To'=>"destinatario\@do.main.mx",
         'Subject'=>"El que se indica :-)",
         'Precedence'=>'junk',
         'Content-Type'=>'text/plain; charset=UTF-8'
    });

print $mailer qq|Aquí va el mensaje con acentos.

No sólo acentos, también la eñe: áéíóúñÁÉÍÓÚÑ
|;

$mailer->close
   or msgerr("couldn't send whole message: $!\n");
Nota: Poner acentos en el Subject es otra historia, que se deja como ejercicio para el lector de este abandonado blog :-P