reggiebcn escribiste:El mail no se llega a enviar, se keda en la cola asi:
EC1F923C37 488 Wed Jan 4 00:46:00 [email protected]
(connect to relay.upc.es[147.83.2.51]: Connection timed out)
[email protected]
A 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: Seleccionar todo
use Email::Send;
my $message = <<'__MESSAGE__';
From: [email protected]
To: [email protected]
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);