#!perl
use strict;
use warnings;

use Win32::OLE 'in';
use Win32::OLE::Const 'Microsoft Outlook';

my $server = Win32::OLE->GetActiveObject('Outlook.Application');

for my $inspector ( in $server->Inspectors ) {
    
    if ( $inspector->CurrentItem->Class != olMail ) {
        print "not an email, skipping...\n";
        next;
    } elsif ( $inspector->EditorType != olEditorRTF ) {
        print "not rich text format (RTF), skipping...\n";
        next;
    } else {
        print "processing...\n";
        
        # here's the body
        # but i need the textbox or something
        # and this is as far as i have got
        
        $inspector->CurrentItem->Body;
    }
}