Foro - Perl en Español

por **BigBear** » 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:

Sintáxis: [ Descargar ] [ Ocultar ]

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);
}
  send_email('[email protected]',
             '[email protected]',
             '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 ?

El ejecutable sendmail no viene instalado en todos los Linux... Podría estar en su lugar el postfix, o el exim4 (aunque éstos también tienen su propio wrapper o alias llamado sendmail). Debes comprobar antes, desde la línea de comandos, que puedes usar ese sendmail.

Otro detalle importante es que tu proveedor de acceso a Internet no te permita enviar correo por ti mismo, y te obligue a usar su propio servidor de correo, por lo que, además, lo más seguro es que para usarlo tengas que autenticarte. Y el destinatario también puede imponer reglas muy duras en cuanto a qué correo admitir, y desechar, por ejemplo, a todo correo que llega de direcciones IP residenciales.

La casuística es muy amplia... y es independiente de que uses el comando sendmail o un módulo.

Actualmente, es bastante complicado enviar correos electrónicos... el spam ha tenido parte de culpa, claro.

por **danimera** » 2014-01-13 11:23 @516

Usa el Mite-Lite; estoy seguro que casi todos los servidores lo tienen ^^

Foro - Perl en Español

Envío de correos

Envío de correos

Publicidad

Re: Envío de correos

Re: Envío de correos

¿Quién está conectado?