Talvez le puede pegar lo que dice Alvaro a est Programa.
#!/usr/bin/perl
####################################
# Autor: Gregory Cascante Aviles
# Date: Jueves 6 de Abril 2000
# Universidad Latina de Costa Rica
####################################
my $smail = '/usr/lib/sendmail -t';
#$passwd_file = "lista.txt";
$passwd_file = "test.txt";
$mensaje = "mensaje.txt";
open(MENSAJE,$mensaje) || die "\n No puedo ver el mensaje \n";
@cuerpo = <MENSAJE>;
print @cuerpo;
open(FILE_HANDLE,$passwd_file) || die "\n No puede habrir: $passwd_file \n";
$from = "webmaster\@hdegroup.com";
$cont = 1 ;
while (<FILE_HANDLE>)
{
chomp;
@lista = split/:/,$_;
open (MAIL_to_greg, "|$smail");
print MAIL_to_greg "From: $from \n";
print MAIL_to_greg "To: $lista[0]\@hdegroup.com \n";
print MAIL_to_greg "Subject: Sobre el uso de http://www.email.co.cr";
print MAIL_to_greg "Attachment: \home\gregory\.bashrc";
print MAIL_to_greg @cuerpo;
close (MAIL_to_greg);
print "Send: $cont --> $lista[0]\n";
# print "\@ns.domus.ac.cr\n";
$cont++;
sleep(1);
}
$passwd_file = "test.txt"; <======= archivo de correos
$mensaje = "mensaje.txt"; <======= cuerpo del email
Quoting "Alvaro F. Figueroa Cabezas" <[EMAIL PROTECTED]>:
> >
> > Gente, alguien sabe como le hago para enviar un archivo que sea un jpg
> (una
> > imagen) por email desde consola, ya debo hacer que un tux envie esta
> foto
> > por email a una determinada hora y debe de hacerlo sin que yo este
> presente
> > o que alguien la envie (debere meterlo en un cron ).
> >
> Como siempre, la nota esta en saber como trabajan las cosas por debajo.
> Por ejemplo, cuando mandas un attatchment por correo, se utiliza una
> codificacion para que los archivos binarios pasen como texto.
>
> Para reproducir esta codificacion, podes hacer algo como
>
> cat gears |uuencode -m archivo
> Esto de codificara el binario "gears" en caracteres ASCII imprimibles.
> Se utiliza una linea como
>
> begin-base64 644 archivo
>
> Para decir que se esta codificando en base 64 el archivo llamado
> "archivo".
>
> Despues un poco de texto como
> f0VMRgEBAQAAAAAAAAAAAAIAAwABAAAAcI4ECDQAAACYMgAAAAAAADQAIAAG
> ACgAGgAZAAYAAAA0AAAANIAECDSABAjAAAAAwAAAAAUAAAAEAAAAAwAAAPQA
> AAD0gAQI9IAECBMAAAATAAAABAAAAAEAAAABAAAAAAAAAACABAgAgAQIXi4A
> AF4uAAAFAAAAABAAAAEAAABgLgAAYL4ECGC+BAgAAgAAJAIAAAYAAAAAEAAA
>
> (Especificamente 311 lineas).
>
> En la pagina manual de uuencode/uudecode, viene un ejemplo sobre como
> hacer exactamente lo que quieres hacer.
>
>
> tar cf - src_tree | compress | uuencode \
> src_tree.tar.Z | mail sys1!sys2!user
>
> Sin embargo todavia de falta la parte para que pine, mutt, u otro MUA,
> se
> de cuenta que son attatchments. En otras palabras, joe $MAIL ;)
>
> --
> Alvaro Figueroa C. I'm the root
> Universidad Latina de CR and you're the hood
> Departamento de Computo I have other souls in my hands
>
>
>
>
> --
> ¿Desea desuscribirse? Escriba a [EMAIL PROTECTED] con
> el tema "unsubscribe".
>
--
¿Desea desuscribirse? Escriba a [EMAIL PROTECTED] con
el tema "unsubscribe".
