Re^8: Reading msg file

[monkee]

What if emails are in a folder? The following code works if searching within folder with .txt files, but it does NOT work if searching for .msg files.

use strict;
use warnings;
use Email::Outlook::Message;

my @files = glob "C:/test_path/*";

foreach my $file (@files) {
  open   (FILE, "$file");
  while(my $line= <FILE> ){
    print "$file" if $line =~ /training/;
  }
  close FILE; 
}

Do I need the following 3 lines when working with .msg files, and where would I put these?

my $msg  = new Email::Outlook::Message $file;
my $mime = $msg->to_email_mime;
$mime->as_string;