Tengo un problema al enviar correos con sendmail. Lo raro que las funciones que tengo hace 3 días estaban funcionando correctamente y el día de hoy resulta que no manda correo y además me manda un error y no sé cómo resolverlo. Aquí pongo las funciones que utilizo:
Using perl Syntax Highlighting
sub Mandacorreo {
my($de,$para,$asunto,$cuerpo)=@_;
my (%mail,$dominio);
$dominio=
%mail = (
#SMTP => '$dominio',
from => $de.'@servidor.fideicomiso.com',
to => $para,
subject => $asunto,
);
$mail{body} = <<END_OF_BODY;
<html> $cuerpo </html>
END_OF_BODY
if (sendmail %mail) {
#&msj("Mail enviado correctamente.");
} else {
&msj("Error al enviar mail:","$Mail::Sendmail::error <br> $Mail::Sendmail::log");
}
}
my($de,$para,$asunto,$cuerpo)=@_;
my (%mail,$dominio);
$dominio=
%mail = (
#SMTP => '$dominio',
from => $de.'@servidor.fideicomiso.com',
to => $para,
subject => $asunto,
);
$mail{body} = <<END_OF_BODY;
<html> $cuerpo </html>
END_OF_BODY
if (sendmail %mail) {
#&msj("Mail enviado correctamente.");
} else {
&msj("Error al enviar mail:","$Mail::Sendmail::error <br> $Mail::Sendmail::log");
}
}
Coloreado en 0.012 segundos, usando GeSHi 1.0.8.4
La manera en cómo mando a llamar la rutina es esta:
Using perl Syntax Highlighting
&Mandacorreo("administrador","[email protected]","CORRESPONDENCCIA DEL DIA","<html><body><p>$table3</p><br><br><p><b>Atentamente <br> El administrador </b></p></body></html>");
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Hace unos días funcionaba bien, pero no sé qué paso que ya no funciona y me manda el siguiente error:
- Código: Seleccionar todo
RCPT TO: error (550 5.7.1 ... Relaying denied)
Mail::Sendmail v. 0.79 - Mon Jun 1 12:37:18 2009 Date: Mon, 1 Jun 2009 12:37:18 -0500 Server: servidor.fideicomiso.gob.mx Port: 25 From: [email protected] Subject: CORRESPONDENCCIA DEL DIA To:
¿Alguien sabe a qué se debe este error?