A customer asked me to filter a .dbx file (Outlook express) and extract some data. This script reads the .dbx and prints it in a readable format.

#!/usr/bin/perl
use Mail::Transport::Dbx;

my $dbx = eval { Mail::Transport::Dbx->new( “Customer_List.dbx” )};
die $@ if $@;

for my $msg ($dbx->emails) {
my @bodxy = $msg->body;
print @bodxy;
}

Tags: dbx, mail, perl, Transport

This entry was posted on Tuesday, June 16th, 2009 at 7:31 am and is filed under Perl. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.