Had a lot of help from Mark Overmeer with this one .. 

#!/usr/bin/perl

#
#   Name:  multipart-mo.pl
#
#   Extract names and email addresses from a maildir folder
# 
#   -  Also displays the number of messages (files) found and the numb
+er of parts in each message
#   -  Displays structure of each message and then outputs the names a
+nd email addresses
#   -  Where the name/email address is found in the 'body' part of a m
+essage (i.e NOT in From:, To:, Cc: etc,etc),
#             then usually only the email address will be returmed
#
#   This script has been adapted from multipart.pl , which is part of 
+the Mail::Box module , vers 2.118,
#   by Mark Overmeer   (http://http://search.cpan.org/dist/Mail-Box/ )
#
#   This code can be used and modified without restriction.
#
#   Usage:   perl multipart-mo.pl Smith\,\ Bill\ \&\ Nancy/     (maild
+ir folder name)
#

use warnings;
use strict;
use lib '..', '.';

use Mail::Box::Manager;

sub emails_from_body($);

#
# Get the command line arguments.
#

die "Usage: $0 folderfile\n"
    unless @ARGV==1;

my $foldername = shift @ARGV;

#
# Open the folder
#

my $mgr    = Mail::Box::Manager->new;

my $folder = $mgr->open($foldername, access => 'r')
    or die "Cannot open $foldername: $!\n";

#
# List all messages in this folder.
#

print "Mail folder $foldername contains ", $folder->nrMessages, " mess
+ages:\n";

my %emails;
 
foreach my $message ($folder->messages)
{   
    my @parts = ($message, $message->parts('RECURSE'));
    print $message->seqnr, ' has '.@parts." parts\n";
    $message->printStructure;

    foreach my $part (@parts)
    {
        foreach my $fieldname (qw/To Cc Bcc From Reply-To Sender/)
        {   my $field = $part->study($fieldname) or next;
            $emails{$_}++ for $field->addresses;
        }

        my $ct = $part->contentType || 'text/plain';
        $ct eq 'text/plain' || $ct eq 'text/html' or next;

        $emails{$_}++ for emails_from_body $part->body->decoded;
    }

}

print "$_\n" for sort keys %emails;
$folder->close;
exit 0;


### HELPERS

sub emails_from_body($)
{   
    $_[0] =~  /([-\w.]+@([a-z0-9][a-z-0-9]+\.)+[a-z]{2,})/gi;
}

[download]

It works. :)

In reply to Extract names and email addresses from a maildir folder by peterr

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.