reggiebcn escribió:
El mail no se llega a enviar, se keda en la cola asi:
EC1F923C37 488 Wed Jan 4 00:46:00
me@here.com (connect to relay.upc.es[147.83.2.51]: Connection timed out)
e6973372@est.fib.upc.eduA ver... el mensaje dice que ha ocurrido un timeout en la conexión con el servidor... puede ser porque ese servidor no responda o que esté esperando la autenticación para poder enviar.
¿Has conseguido alguna vez enviar correo desde esa máquina? Si no es así, primero tienes que averiguar cuál es tu servidor de correo más cercano que puedas utilizar -tener una cuenta de correo en él-.
Luego, podrás usar el módulo
Email::Send para enviarle.
Para enviar un correo sólo necesitas saber 3 detalles: nombre del servidor de correo, nombre del usuario con el que te vas a identificar en él y la contraseña de ese usuario.
Código:
use Email::Send;
my $message = <<'__MESSAGE__';
From: me@here.com
To: e6973372@est.fib.upc.edu
Subject: Nuevo boletin
Hay un nuevo boletín
__MESSAGE__
my $mailer = Email::Send->new(
{
mailer => 'SMTP',
mailer_args =>
[
Host => 'relay.upc.es',
username => 'regglebcn',
password => 'sdfhc334',
]
}
);
$mailer->send($message);
Si el servidor de correo que vas a usar no necesita autenticación, más fácil todavía, porque no necesitas indicar username y password.
2006-01-03 09:21 @431
