comment on

I think you could try something like this, depending on how you want to specify the directory:

#!/usr/bin/perl -w
use strict;
use warnings;

use Email::Outlook::Message;
use Email::LocalDelivery;
use Getopt::Long;
use Pod::Usage;
use File::Basename;
use vars qw($VERSION);
$VERSION = "0.903";

use File::Slurp;  # exports read_dir sub

my $verbose = '';
my $mboxfile = '';
my $help = '';
GetOptions(
  'mbox=s' => \$mboxfile,
  'verbose' => \$verbose,
  'help|?' => \$help) or pod2usage(2);
pod2usage(1) if $help;

defined $ARGV[0] or pod2usage(2);

my $dir = $ARGV[0];  # pass in directory instead of file

foreach my $file ( read_dir( $dir ) ) {

   next unless $file =~ /\.msg/;  # skip anything that is not a messag
+e
   $file = $dir .'/' . $file;     # Email::Outlook::Message, does it r
+equire fully qualified path?

  my $mail = new Email::Outlook::Message($file, $verbose)->to_email_mi
+me->as_string;
  if ($mboxfile ne '') {
    Email::LocalDelivery->deliver($mail, $mboxfile);
  } else {
    my $basename = basename($file, qr/\.msg/i);
    my $outfile = "$basename.mime";
    open OUT, ">:utf8", $outfile
      or die "Can't open $outfile for writing: $!";
    print OUT $mail;
    close OUT;
  }
}
[download]

In reply to Re: Convert msg files to mime by ~~David~~
in thread Convert msg files to mime by TheBigAmbulance

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


XP is just a number
	PerlMonks