Tengo el módulo de Sendmail ya instalado, pero el programita siempre me muestra error al enviar.
Using perl Syntax Highlighting
use strict;
use Mail::Sendmail;
# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para <[email protected]>',
From => 'De <[email protected]>',
Subject => 'Asunto del mensaje',
Message => 'Mi mensajes',
Smtp => 'mail.hotmail.com'
);
unless (sendmail(%mail)) {
# Error!
print "ERROR\n";
exit(1);
}
# Envío correcto.
print "OK\n";
exit(1);
use Mail::Sendmail;
# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para <[email protected]>',
From => 'De <[email protected]>',
Subject => 'Asunto del mensaje',
Message => 'Mi mensajes',
Smtp => 'mail.hotmail.com'
);
unless (sendmail(%mail)) {
# Error!
print "ERROR\n";
exit(1);
}
# Envío correcto.
print "OK\n";
exit(1);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
He probado con más servidores SMTP y nada.
