Re^8: Reading msg file

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

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

Comment on Re^8: Reading msg file Select or Download Code

Replies are listed 'Best First'.
Re^9: Reading msg file by monkee (Initiate) on Oct 22, 2019 at 14:12 UTC
Essentially, how do I do a keyword search in a .msg file? It is not working the same way as with .txt files. Do I need to search $mime after the line $mime->as_string? Is there another package that I should be using instead of / in addition to Email::Outlook::Message? I really appreciate the help, as I am brand new to PERL and this assignment is the sole reason I'm trying to learn, to automate some super manual text mining through .msg files at my work. Thanks!	[reply]

Replies are listed 'Best First'.

Re^9: Reading msg file
by monkee (Initiate) on Oct 22, 2019 at 14:12 UTC

Do I need to search $mime after the line $mime->as_string?

Is there another package that I should be using instead of / in addition to Email::Outlook::Message?

I really appreciate the help, as I am brand new to PERL and this assignment is the sole reason I'm trying to learn, to automate some super manual text mining through .msg files at my work. Thanks!

[reply]