> Has anyone done this in Perl, is there an module that can
> help me? I am aware of that I can use the Win32::Ole, but
> what I really want is an more easier way of asking:
use Mail::Internet;
my $mail = Mail::Internet->new(\*STDIN); # see docs on how to use an array instead of
a file handle
my $headers = $mail->head->header_hashref;
$headers->{'From'}->[0]
$headers->{'Reply-To'}->[0]
Each item in %{$headers} is an aaray reference to values for that header.
Just put the header you want in there an voila it's all yours!
> For $user
Could be in To, Cc, Bcc ( IE not intheir at all), Envelope-To, etc...
> Return mailadress
Could be From, Reply-To, Etc...
>
> This can be done in VB quite easy, but I want to try and stay
> "perlish" here. Any one have an clue?
Does anyone really have a clue? :)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
