PugSA

On Lincoln Stein's book "Network Programming with Perl" he gives code for a simple module called PopParser.pm

package PopParser;
use strict;

use Net::POP3;
use MIME::Parser;

use vars '@ISA';
@ISA = qw(Net::POP3);

# over-ride Net::POP3 new() method
sub new {
  my $pack = shift;
  return unless my $self = $pack->SUPER::new(@_);
  my $parser = MIME::Parser->new();
  $parser->output_dir( $ENV{TEMP} || '/tmp');
  $self->parser($parser);
  $self;
}

# accessor for parser
sub parser {
  my $self = shift;
  ${*$self}{'pp_parser'} = shift if @_;
  return ${*$self}{'pp_parser'}
}

# over-ride get()
sub get {
  my $self = shift;
  my $msgnum = shift;
  my $fh = $self->getfh($msgnum) or die "Can't get message: ",$self->m
+essage,"\n";
  return $self->parser->parse($fh);
}

1;
[download]

which I have found very useful along with the example of its use given in his pop_fetch.pl programme ( see p210 or it can be found here but you need the book to get the commentary!). One of the beauties of his code is that he explains everything on a near line by line basis.

As for Outlook? Sorry, I can't help, although we work in Windows predominantly - Outlook is outlawed here.

jdtoronto