use strict; use warnings; use Email::MIME; use Mail::POP3Client; my $pop = new Mail::POP3Client( USER => "my\@email.address", PASSWORD => "passwordxxxxx", HOST => "mail.mydomain.com" ); for( my $i = 1; $i <= $pop->Count(); $i++) { my $body = $pop->Body($i); my $parsed = Email::MIME->new($body); my $decoded = $parsed->body; print "<p>$decoded<p><hr>"; }
In reply to Re: parsing and printing e-mail
by keszler
in thread parsing and printing e-mail
by keiusui
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |