teja has asked for the wisdom of the Perl Monks concerning the following question:

use Net::POP3::SSLWrapper ; $num_Messages = $pop3->login($configparams{'GMAIMAILID'}, $configparams{GMAILMAILPWD'}) ; We are using this to get the count of total number of mails in our gmail inbox , but it is returning only the count of unread messages. Let me know the function which returns total count of messages i.e both read and unread.

Replies are listed 'Best First'.
Re: pop3 function for gmail account
by Khen1950fx (Canon) on May 14, 2012 at 12:10 UTC
    I've had better luck with Mail::POP3Client rather than Net::POP3::SSLWrapper. 
    #!/usr/bin/perl -l

use strict;
use warnings;
use Mail::POP3Client;

BEGIN {
    $ENV{'POPTESTACCOUNT'} = 'user:password:pop.example.com';
}

my $host = 'pop.example.com';
my $user = 'user';
my $password = 'password';

my $pop = Mail::POP3Client->new(
    USER          => $user,
    PASSWORD      => $password,
    HOST          => $host,
    PORT          => 995,
    USESSL        => 1,
    DEBUG         => 1,
    STATE         => 'AUTHORIZATION',
    AUTHMODE_PASS => 'PASS',
    MESG          => 'OK',
    LOCALADDR     => '127.0.0.1',
    TIMEOUT       => 30,
);
$pop->Connect();
print "You have ", $pop->Count, " messages";

    [download]
[reply]
[d/l]
      Hi , Are there any chances of getting the same function using Net::POP3::SSLWrapper ?
[reply]

Back to Seekers of Perl Wisdom