Descargar adjuntos desde Gmail
Publicado: 2017-06-15 11:23 @516
Estimados, necesito de su ayuda... leyendo acerca de cómo descargar adjuntos desde un buzón en Gmail he logrado construir el siguiente script el cual me descarga el archivo Excel en este caso, pero el Excel llega solo con el nombre del archivo escrito en su primera celda. La información real no viene... desde ya muchas gracias por su ayuda...
El script es el siguiente:
El script es el siguiente:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Net::IMAP::Client;
- use Email::MIME::Attachment::Stripper;
- use Data::Dumper;
- $HOST = "imap.gmail.com";
- $USERNAME = "cuenta\@dominio.com";
- $PASSWORD = "contraseña";
- my $imap = Net::IMAP::Client->new(
- server => $HOST,
- user => $USERNAME,
- pass => $PASSWORD,
- ssl => 1,
- port => 993,
- ) or die "Could not connect to IMAP server";
- $imap->login or die( 'Login failed: ' . $imap->last_error );
- $imap->select('INBOX');
- my $messages = $imap->search('ALL');
- foreach $msg (@$messages) {
- my $data = $imap->get_rfc822_body($msg);
- my $parsed = Email::MIME->new($data);
- my $stripper = Email::MIME::Attachment::Stripper->new($parsed);
- for my $a ( $stripper->attachments() ) {
- next if $a->{'filename'} !~ /xls/i;
- my $tempdir = "EXCEL/IN/";
- my $tmpPath = $tempdir . $a->{'filename'};
- my $f = new IO::File $tmpPath, "w" or die "Cannot create file " . $tmpPath;
- print $f $a->{'filename'};
- }
- }
- $imap->logout();
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4