Envío de correos
Publicado: 2014-01-12 15:11 @674
Encontré este código en Internet y no funciona. Mi idea es usar algo así que no requiera instalar módulos externos, por eso me interesó el comando sendmail que trae Linux. El código es este:
¿ Alguien me puede ayudar ?
Using perl Syntax Highlighting
- sub send_email {
- my ($remitente, $destinatario, $asunto, $mensaje) = @_;
- open(MAIL, "|/usr/lib/sendmail -oi -t");
- print MAIL "From: $remitente\n";
- print MAIL "To: $destinatario\n";
- print MAIL "Subject: $asunto\n\n";
- print MAIL "$mensaje\n";
- close(MAIL);
- }
- 'Mensaje de prueba',
- 'Estimado usuario, este es un mensaje de prueba');
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿ Alguien me puede ayudar ?