I am trying to write a perl script to edit the body of an Outlook email message to tart it up before I send it. I can connect to Outlook, detect open emails and even get at the body text (see below for my code so far) but my problem is that the RTF-ness of the message is avoiding me. In fact, it's laughing at me saying, "Come and get me... no I didn't think you could!"

Please help me to teach it a lesson. I need to add/replace unformatted text in the message body with nicely coloured text, change fonts/sizes etc.

So far I have (pitiful I know)...

#!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;
    }
}
[download]

Any help will be most gratefully received,

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"