my $conn= Net::IMAP::Simple->new(
      $host,
      port   => $port,
      ($port == 993? (
         use_ssl => 1,
         ssl_options => [
            SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER()
         ]
      ) : ()),
      debug  => $log->is_trace,
   )
      or _logcroak("Cannot connect to server $host: $Net::IMAP::Simple
+::errstr");
   
   if ($port != 993) {
      $conn->starttls
         or _logcroak("Can't start TLS after conencting to $host port 
+$port: ".$conn->errstr);
   }
   
   $conn->login($user, $self->login_pass)
      or _logcroak("Can't authenticate as $user to server $host: ".$co
+nn->errstr);
   $log->info("Logged in as ".$user);
   
   my $mbox= $url->path;
   $mbox= 'INBOX' unless defined $mbox and length $mbox and $mbox ne '
+/';
   $conn->select($mbox)
      or _logcroak("Can't select folder $mbox");
[download]

Then, in a loop:

   $conn->select; # call select again to refresh message list
[download]

   $msg_ids= [ $conn->search($imap_query) ];
[download]

   for my $msgid (@$msglist) {
      $log->debug("Msg $msgid");
      my $header_lines= $conn->top($msgid);
      my $head= MIME::Head->from_file(\join('', @$header_lines)) or di
+e;
      ...
      # filtering code goes here, which inspects headers
[download]

     # this is the code that pulls in the whole message
     my $fh= $conn->getfh($msgid) || \
      _logcroak("Failed to get message file handle: ".$conn->errstr);
     my $p= MIME::Parser->new;
     $p->output_to_core(1);
     return $p->parse($fh);
[download]

I'll add that Email::MIME has a nicer interface than MIME::Parser but I had some particular edge cases where MIME::Parser worked better for me. I recommend starting with Email::MIME and see if it works for you.

The part where you want to search only unread messages is done using the IMAP query, and IMAP::Simple describes that well enough. Also I think Office365 doesn't support IMAP unless you specifically enable it somewhere in your account preferences.

#!/usr/local/bin/perl -w

use Net::IMAP::Simple;
use Date::Parse;
my $imap_server = '40.101.136.18';

printf $imap_server;
printf "\n";


if (!($imap_con = new Net::IMAP::Simple($imap_server, find_ssl_default
+s=>[])))
    {
        print "The Server is not available. \n";
        exit;
    }
my $user = 'USER';
my $password = qq(PW);
if (!($imap_con->login($user, $password)))
    {
        print "invalid Login: ". $imap_con->errstr ."\n";
        exit;
    }
$imap_con->quit();
print "login possible. \n";
exit;
[download]

This is the small "Test"-Script I am using to see if I can login. It's basically c&p from how I invoked the methods in the previous script and "errstr" always returns "Command received in invalid state".

I highly recommend you look at the module page on CPAN here and follow the example code more closely. You're ignoring the return status of your calls, and that's going to make it virtually impossible to understand what's failing.

Alex / talexb / Toronto

Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.

This seems to work, although I'd give the same warning about blindly accepting the SSL certificate as they do on https://metacpan.org/pod/distribution/Net-IMAP-Simple/lib/Net/IMAP/Simple.pm#new

#!/usr/local/bin/perl -w

use Net::IMAP::Simple;
use Date::Parse;
my $imap_server = '40.101.136.18';

printf $imap_server;
printf "\n";

if (!($imap_con = new Net::IMAP::Simple($imap_server, port => 993, use
+_ssl => 'true')))
    {
        print "The Server is not available. $Net::IMAP::Simple::errstr
+\n";
        exit;
    }
my $user = '';
my $password = '';
if (!($imap_con->login($user, $password)))
    {
        print "invalid Login: ". $imap_con->errstr ."\n";
        exit;
    }
$imap_con->quit();
print "login possible. \n";
exit;
[download]

You might consider using Email::Folder::Exchange