enviar e-mail con un programa en Perl
David Cabrera Lozano
Hola a todos; como siempre necesito ayuda. Tengo que enviar un
e-mail a una larga lista de usuarios y el mesage tiene que ser con
códigos HTML.
Conoceis alguna libreria o programa que haga esto.
GRACIAS. David
David Cabrera Lozano
Ya lo tengo
Usuario de correo bajo Linux
un programa en Perl...
Pués compartelo, ¿no?. ;-)
Saludines...
--
|\_/|
/ O O \ _ "Si el mundo de la informática fuese
| | | | | un pañuelo, Linux sería mi moco
\ _^_ /\ / / favorito." ;-)
_üüü___üüü_/_____________________________________________
|_____|_____|_____|__|
Juan Antonio León Machado |_____|_____|_____|
e-mail: juan...@XXworldonline.es __|_____|_____|__|
(quita las XX) |__ __|_____|_____|
http://home.worldonline.es/juanaleo __ __|_____|_____|__|
__________________________________|____|_____|_____|_____|
Han Solo
>
> Nos decía David Cabrera Lozano, acerca de Re: enviar e-mail con
> un programa en Perl...
>
> >> Hola a todos; como siempre necesito ayuda. Tengo que enviar un
> >> e-mail a una larga lista de usuarios y el mesage tiene que ser con
> >> códigos HTML.
> >>
> >> Conoceis alguna libreria o programa que haga esto.
> >>
> >> GRACIAS. David
> >
> >Ya lo tengo
>
> Pués compartelo, ¿no?. ;-)
>
---------------------------------------------------------------------
#!/usr/bin/perl
require "cgi-lib.pl";
&ReadParse();
$nombre=$in{"nombre"};
$dir=$in{"dir"};
$pob=$in{"pob"};
$cp=$in{"cpprov"};
$pais=$in{"pais"};
$email=$in{"email"};
$pedido=$in{"pedido"};
$tel=$in{"tel"};
$nif=$in{"nif"};
$money=$in{"money"};
@pedido = split (/\&/,$pedido);
open(MAIL, "|/usr/sbin/sendmail -t") || die "No se puede abrir
/usr/sbin/sendmail";
print MAIL "To: carlosv\@localhost \n";
print MAIL "From: $nombre <$email>\n";
print MAIL "Reply-To:$email\n";
print MAIL "X-mailer: Servicio de correo automático para el IJH. Por
carlosv\@ee
.upm.es\n";
print MAIL "X-Publicidad: Linux powered!!!\n";
print MAIL "X-Remote-Host: $ENV{'REMOTE_HOST'} ($ENV{'REMOTE_ADDR'})\n";
print MAIL "X-Remote-User: $ENV{'REMOTE_USER'}\n";
print MAIL "Subject: Petición automática de compra\n";
print MAIL "Content-type: text/html\n\n<html>\n<head></head>\n<body
bgcolor=#fff
fff>\n";
print MAIL "<h1>Solicitud de compra.</h1>\n<b>Datos para el
envío:</b><p>\n$nomb
re<br>\n$dir<br>\nNIF/CIF: $nif<br>\n$pob \n<br>$cp <br>\n$pais<p>
\n\nE-mail: $
email <br>\nTeléfono: $tel<p>\n";
print MAIL "<table>\n<tr
bgcolor=\"\#dddddd\"><td>Título<td>Cant<td>Precio<td>To
tal";
foreach $i (0..$#pedido){
($t,$c,$p,$st) = split (/\*\*/,$pedido[$i]);
print MAIL"<tr><td><i>$t</i><td align=\"right\">$c<td
align=\"right\">$p<td al
ign=\"right\">$st\n";
}
($total,$ge,$te) = split (/\&/,$money);
print MAIL"<tr bgcolor=\"\#eeeeee\"><td colspan=3><b>Importe del
pedido</b><td a
lign=\"right\"><b>$total</b>\n";
print MAIL"<tr bgcolor=\"\#eeeeee\"><td colspan=3><b>Gastos de
envío</b><td alig
n=\"right\"><b>$ge</b>\n";
print MAIL"<tr bgcolor=\"\#eeeeee\"><td colspan=3><b>Total</b><td
align=\"right\
"><b>$te</b>\n";
print MAIL "</table>";
print MAIL "</body>\n";
print MAIL"</html>\n";
close (MAIL);
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Instituto Juan De Herrera. Venta de libros</title>\n";
print "</head>\n";
print "<body bgcolor=#ffffff>\n";
print "<font face=helvetica>";
print "<h1>Petición enviada</h1>\n";
print "Su petición se ha recibido satisfactoriamente. Gracias por usar
nuestro s
ervicio de venta a través Internet<br><br><br>\n";
print "<font size=2><center><address>\n";
print "(C) Instituto Juan de Herrera<br>\n";
print "(C) Escuela Técnica Superior de Arquitectura<br>\n";
print "Universidad Politécnica de Madrid<br>\n";
print "Para cualquier duda o sugerencia<br>\n";
print "escriba a <a
href=\"mailto:ijh\@aq.upm.es\">ijh\@aq.upm.es</a>\n";
print "<address></center></font>\n";
print "</body>\n";
print "</html>\n";
exit;
--------------------------------------------------------------------
Ha quedado un poco hecho polvo al enviarlo, pero imagino que sabréis
corregirlo. Pertenece a una páguina que todavía no funciona, lo he
probado en un servidor aparte y va bien.
--
Un Saludo
Han Solo
The Rebel Alliance
Conecto, luego existo.
Desconecto, luego insisto.
Soy usuario de infobirria+
P.D. La firma no es mía, sino de uno que trabajaba, precisamente, en M$.
Vivir para ver.