#Option Explicit
use strict;
use warnings;

use Win32::OLE qw(EVENTS);



&application_newmail('<EXCHANGESERVER>', '<USERNAME>');
#

sub application_newmail {
    my ($server, $alias) = @_;    # connect to mailbox of CN $alias us
+ing server $server
    my $mapikey = "$server\n$alias";
     my $err;
    my $session = Win32::OLE->new(qw(MAPI.Session)) or die Win32::OLE-
+>LastError();
    # Try to logon with dynamic profile under current account.
    # This may need a reasonable current CDO on your machine.
    my $mapi = $session->Logon(undef,undef,undef,1,undef,undef,$mapike
+y);
    return $err if $err = Win32::OLE->LastError();
    # can be problematic. Therefore we iterate with GetFirst/GetNext (
+see below)
# 'Check Inbox for messages and exit of none found
    my $messages = $session->Inbox->Messages() or return Win32::OLE->L
+astError();
    my $filter = $messages->Filter() or return Win32::OLE->LastError()
+;
    $filter->{Unread} = 1;    # Only unread messages
    $messages->Sort();    # default Sort is ASC on CdoPR_MESSAGE_DELIV
+ERY_TIME
    return $err if $err = Win32::OLE->LastError();
# Gather Subject and Body
    for (my $msg = $messages->GetFirst(); $msg; $msg = $messages->GetN
+ext()) {
        if($msg->ConversationTopic =~ /^Test Subject Text /){
            print "Subject => " . $msg->ConversationTopic . "\n";
            print "Body: ". $msg->Text."\n";

        }
#    Next Item
    }
    $session->Logoff();
}    # end sub
[download]

Go read Filter Property (Messages Collection), Message Object, MoveTo/CopyTo methods, Unread property ...

    # copy messages between folders
    $imap->select('INBOX');
    $imap->copy(\@msg_ids, 'Archive');

    # delete messages ("Move to Trash")
    $imap->copy(\@msg_ids, 'Trash');
    $imap->add_flags(\@msg_ids, '\\Deleted');
    $imap->expunge;
[download]

Although what you've said is correct I suspect it is irrelevant to the poster - since MAPI is different from IMAP.

When it comes to processing IMAP folders, moving, copying, and scripting I put together a simple perl tool which does the job. It might be useful to some.

Steve
--

Thanks, but I am using MAPI