• Publicidad

Envío de correo con Mail::Sendmail

Aquí encontrarás todo lo que sea específicamente acerca de módulos de Perl. Ya sea que estás compartiendo tu módulo, un manual o simplemente tienes una duda acerca de alguno.

Envío de correo con Mail::Sendmail

Notapor matadamas » 2014-07-11 11:11 @507

Hola, explorer:

Nuevamente queriendo echar mano de tu sabiduría con el módulo Mail::Sendmail.

Tengo el siguiente código en Perl:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Mail::Sendmail;
  2. my %mail = ( To      => '[email protected]',
  3.              Message => "Prueba de correo");
  4. sendmail(%mail) or return $Mail::Sendmail::error;
  5.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


La configuración del módulo sendmail es la siguiente:
Sintáxis: [ Descargar ] [ Ocultar ]
  1. %mailcfg = ( 
  2.   # List of SMTP servers: 
  3.   'smtp'  => [ qw( smtp.prodigy.net.mx ) ], 
  4.   'from'  => '[email protected]', # default sender e-mail, used when no From header in mail 
  5.   'mime'  => 1, # use MIME encoding by default 
  6.   'retries' => 3, # number of retries on smtp connect failure 
  7.   'delay'  => 1, # delay in seconds between retries 
  8.   'tz'   => '', # only to override automatic detection 
  9.   'port'  => 25, # change it if you always use a non-standard port 
  10.   'debug'  => 0 # prints stuff to STDERR 
  11. ); 


Sin embargo, al querer mandar el correo me arroja el siguiente error:

connect to smtp.prodigy.net.mx failed (Permission denied)
connect to smtp.prodigy.net.mx failed (Permission denied)
connect to smtp.prodigy.net.mx failed (Permission denied)
connect to smtp.prodigy.net.mx failed
connect to smtp.prodigy.net.mx failed (Permission denied) no (more) retries!


Lo raro es que vía telnet puedo enviar correos sin ningún problema, lo que me indica que los puertos están bien configurados, sin embargo al querer enviarlo mediante Perl, me avienta el error descrito.

Espero puedas orientarme ya que no doy con la solución.
matadamas
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2014-06-27 12:53 @578

Publicidad

Re: Envío de correo con Mail::Sendmail

Notapor explorer » 2014-07-11 13:14 @593

Si cambias 'debug' a 1, ¿qué sale?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Módulos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados