Exchange Perl client

exchange-email.pl

#!/usr/bin/env perl

use 5.10.0;
use autodie;
use Email::Folder::Exchange::EWS;
use Email::MIME;

my $uri  = 'https://example.com/ews/exchange.asmx';
my $user = 'DOMAIN\userid';
my $pass = 'password1';
my $VERBOSE = 1;

my $folder = Email::Folder::Exchange::EWS->new($uri, $user, $pass);

for my $message ($folder->messages) {
    my $mid  = $message->header('Message-ID') or die "Can't find message id";
    my $to   = $message->header('To');
    my $from = $message->header('From');
    my $subject = $message->header('Subject');
    my $parsed = Email::MIME->new($message->body);
    my $body = $parsed->body;

    say <<END if $VERBOSE;
mid: $mid
to: $to
from: $from
subject: $subject
body: 
$body
END

}