Hola, estoy probando un script en Perl para enviar un email.
De momento he programado esto:
#!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 => 'Hola, esto es una prueba',
#he quitado la variable Smtp
);
# Envíar el mensaje
unless (sendmail(%mail))
{
# Error!
print "ERROR \n";
exit(1);
}
# ...