Pensando en Red nada es tan fácil como parece serlo

Envío de correo electrónico con Perl

Función para enviar un correo electrónico con Perl:

#!/usr/bin/perl -w
sub smtp {
use Email::MIME::Creator;
my ( $To, $FromName, $FromMail, $Bcc, $Subject, $msg_html ) = @_;
my @html = $msg_html;
# mensaje multipart
my @parts = (
Email::MIME->create(
attributes => {
content_type => "text/html; charset=iso-8859-1",
encoding => "quoted-printable",
},
body => "@html",
),
);
# Declaramos al sender y adjuntamos los archivos a enviar
my $email = Email::MIME->create(
header => [ From => "$FromName < $FromMail >" ],
parts => [ @parts ],
);
# modificamos nuestro encabezado
$email->header_set( "MIME-Version: 1.0rn" );
$email->header_set("Content-type: text/html; charset=iso-8859-1rn");
$email->header_set( 'X-PoweredBy' => 'v3.0' );
$email->header_set( To => "$To" );
$email->header_set( Bcc => "$Bcc" );
$email->header_set( Subject => "$Subject" );
# modificaciones avanzadas, elegimos base64 o bien 7bit para aceptar multipart
#$_->encoding_set( 'base64' ) for $email->parts;
# Accesamos al binario de sendmail y enviamos los mensajes
open (MAIL, "|/usr/sbin/sendmail -t") || die "No hay acceso al binario sendmailn";
#open (MAIL, "|/usr/sbin/postfix") || die "No hay acceso al binario sendmailn";
print MAIL $email->as_string;
}

Para usar la función:

&smtp($vTo, $vFromName, $vFromMail, $vBcc, $vSubject, $vmsg_html );