Hola... Necesito enviar un correo. Anexo código de ejemplo que estoy utilizando
este ejemplo sencillito de prueba:
#!c:/Perl/bin/perl.exe
use strict;
use Mail::Sendmail;
# Creamos el hash con nuestro mensajes
my %mail = (
To => '[email protected]',
From => '[email protected]',
Subject => 'Asunto del mensaje',
Message => 'Mi mensajes',
Smtp => ''
);
# Enviar el mensaje
unless (sendmail(%mail)) {
# Error!
print "ERRORn";
exit(1);
}
# Envío correcto.
print "OKn";
exit(1);
Pero el resultado arrojado es ERRORn
Mi pregunta es, ¿qué tengo que hacer adicionalmente para saber por qué no está haciendo el envío, utilizo Windows y servidor IIS 7.