HTMLpointHTMLpoint HTMLpoint.com


 F.A.Q. su PERL


22. ¿Cómo es posible mandar e-mails a través de script perl?


En este caso es muy cómodo recurrir a los módulos, que nos simplificarán no poco la vida. Imaginemos que queremos escribir una parte de código que sea útil en general, sin recurrir a programas Unix ad hoc (sendmail), pero apoyándonos en un servidor SMTP, que puede ser perfectamente el de vuestro proveedor; el código será:

# Declaración de los módulos que se pretenden usar.
# Es necesario que los hayáis instalado, si no el trabajo será
# inútil
use Mail::Internet;
use Mail::Header;
# Ahora le indicamos al script cuál es el servidor que tiene que usar para el
# envío:
$ENV{SMTPHOSTS} = 'mail.server.com';
# Creamos ahora los headers del mail
$header = new Mail::Header;
$header->add('From', 'nombre@dominio.com');
$header->add('Subject', 'Test');
$header->add('To', 'nombre2@dominio2.com');
# Creamos el cuerpo del mail:
$body = 'Mensaje de prueba';
# Creamos el objeto "mail":
$mail = new Mail::Internet(undef, Header => $header, Body => \[$body] );
# ¡Enviémoslo!
$mail->smtpsend or die;


Aconsejo que se pruebe antes incluyendo el propio nombre como remitente y como destinatario.
Como ya hemos dicho, este código irá bien tanto para sistemas Unix como para otros, siempre que se tengan los módulos necesarios.

[ Índice ]     [ Siguiente ]
  Vuelve a principio de página