Foro - Perl en Español

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.

Ya lo pone en la documentación del módulo... O modificas Sendmail.pm para indicar tu servidor de correo, o lo indicas dentro del hash con el atributo smtp, que tu ahora tienes vacío.

Atención, que el manual también dice que no soporta autenticación, así que no podrás enviar correo usando servidores de correo que necesiten autenticación.

Por estos foros ya hemos hablado más de una vez del tema del envío de correo. Usa el sistema de correo.

Si quieres saber por qué ha fallado, debes poner el atributo debug, a un valor entre 1 y 6.