$LABEL = "Drafts";
$USER = "username";
$PASS = "mypass";
use Mail::Webmail::Gmail;
# http://search.cpan.org/~mincus/Mail-Webmail-Gmail-1.09/lib/Mail/Webmail/Gmail.pm#SENDING_MAIL
print STDERR " * logging in to gmail ...\n";
my $gmail = Mail::Webmail::Gmail->new(
username => $USER, password => $PASS
);
die "Error" if ! defined($gmail);
print "connected\n";
use Data::Dumper;
print STDERR " * getting message list for label '$LABEL' ...\n";
my $messages = $gmail->get_messages( label => $LABEL );
my $count = scalar(@$messages );
print "# $count messages\n";
print STDERR " * downloading messages ...\n";
my $progress=0;
foreach ( @{ $messages } ) {
my $msg_summary = $_;
++$progress;
printf "# --------------- %d of %d\n", $progress, $count;
print Dumper($_);
my $id = $_->{id};
print "id=<$id>\n";
my $email = $gmail->get_indv_email( id => $id );
# my $email = $gmail->get_indv_email( msg => $_ );
print Dumper($email);
}
print "\n";