windows - Mail::IMAPClient で電子メールの内容がない

Question

これは、私がGMailを使用して接続する方法ですMail::IMAPClient

sub connectGMail
{
    my $socket = IO::Socket::SSL->new
    (  
       PeerAddr => 'imap.gmail.com',  
       PeerPort => 993, 
       SSL_verify_mode => SSL_VERIFY_NONE
    )  
    or die "socket(): $@";  

    my $client = Mail::IMAPClient->new
    (
        User     => 'whateverUser',
        Password => 'aG00dP455w0rd'
        Socket   => $socket
    )
    or die "Cannot connect  ($@)\n";
    return $client;
}

次に、このクライアント オブジェクトをprocessEmailsサブルーチンに渡します

sub processEmails
{
    my $client = shift;

    if ($client->IsAuthenticated())
    {
        $client->select('Pruebas');
        my @messages = $client->messages();
        my $mime_parser = getMIMEParser();
        my $filer = MIME::Parser::FileInto->new();
        mkdir(EXTRACT_DIR);

        for(@messages)
        {
            my $msg_body = $client->message_string($_);
            my $msg_subject = Encode::decode('MIME-Header', $client->subject($_));
            if ($msg_body)
            {
                my $dir = EXTRACT_DIR . "/" . $msg_subject;
                $filer->init($dir);
                mkdir($dir);
                $mime_parser->filer($filer);
                my $ok = parseEmail($mime_parser, $msg_body);
                if ($ok)
                {
                    print(STDERR "Email \"$msg_subject\" parsed OK\n");
                }
            }
            else
            {
                print(STDERR "No body for message with subject $msg_subject\n");
            }
        }
    }
    else
    {
        print(STDERR "Something nasty happened\n");
    }
}

問題は、$msg_body(を使用して取得message_string) がすべてのメッセージで空で$msg_subjectあるということですが、これは正しく、接続に問題がないことを意味します。出力は次のとおりです。

No body for message with subject íQuÚ pasa!
No body for message with subject Prueba con formateo HTML