Re^2: Reading msg file

[shylaja]

Thanks for your reply 2teez. msg files are outlook files. It has only plain text in the body of the mail. I need to read the body of each msg file. The module Email::Outlook::Message can be used if I am trying to read mail in the outlook. But the mails will be saved in a folder and I need to retrieve the body of mails from the directory. open function will not open the msg files for reading the body of the mail.

[2teez]

..The module Email::Outlook::Message can be used if I am trying to read mail in the outlook. But the mails will be saved in a folder..
Email::Outlook::Message, also parse mail when you are not reading from your Outlook mail directly. i.e with your mails saved in a folder on your local drive.
E.g:

#!/usr/bin/perl -Wl
use strict;

use Email::Outlook::Message;

for my $filename ( glob("$ARGV[0]*") ) {

    ## tell the filename reading
    print 'Filename: ', $filename;

    my $msg  = new Email::Outlook::Message $filename;
    my $mime = $msg->to_email_mime;
    print $mime->as_string;
}

NOTE: I didn't link the Email::Outlook::Message, I only outlined it here. Others in this thread had it linked already.
And of course, your folder which contain these msg files must be the given from the CLI.

[monkee]

Hi, how could I tailor this code to print $filename only if the email body contains a certain keyword, such as "training"?

[Corion]

You don't show any code, so it is hard for us to give you concrete advice.

Please tell use where exactly you have problems:

Do you have a problem finding the mail body?

Do you have a problem finding the keyword ("training") in your case?

Do you have a problem printing the filename on a condition?

The best approach is to reduce your code to something relevant, self-contained and short (http://sscce.org) and post that code. This allows us to reproduce your situation and give you concrete advice towards your next goal.