Mail::Audit can do this for you.

my $mail=Mail::Audit->new();
my $from=$mail->from;
my $to=$mail->to;
my $cc=$mail->cc;
my $subject=$mail->subject;
my $body=$mail->body;

Pete

On Sat, 8 Mar 2003, Mike Blezien wrote:

> Hello All,
> 
> I've sent up a .forward file to pipe a certain email address to a Perl script, 
> and it's working well, I can extract the [to,from and subject], for the emails, 
> but can not get it to extract the main body of the email, trying removing all 
> the un-wanted email headers...
> 
> Is this a special regrex or something similar like the module Mail::POP3Client 
> 'Body()' function, to get the email main body of the email ??
> 
> thx's
> 
> 

-- 
http://emerson.wss.yale.edu/perl
Pete Emerson
WSS AM&T Yale University


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to