in reply to Re^2: is it possible to use Perl to process Outlook emails?
in thread is it possible to use Perl to process Outlook emails?
Your exchnage sever may have POP3 mail box access set up. If it has it's fairly easy to get Mail::POP3Client to grab the mail. I've had to do this recently:
Edit 27/07/2011@10:33BST Removed reference to subroutine not include in code &return_error and replaced with die#!c:\strawberry\perl\bin\perl.exe use Modern::Perl; use Mail::POP3Client; use MIME::QuotedPrint; my $pop_user = 'XXXXXXXXXX'; my $pop_pass = 'XXXXXXXXXX'; my $pop_host = 'exchange3'; #connect to POP3 sever my $pop = new Mail::POP3Client ( HOST => $pop_host ); $pop->User($pop_user); $pop->Pass($pop_pass); $pop->Connect() or die "Unable to connect to POP3 server: ".$pop->Message()."\n"; #count number of items in POP3 mailbox my $mailcount = $pop->Count(); for (my $i = 1; $i <= $mailcount ; $i++) { my $header = $pop->Head($i); #gets the header my $uni = $pop->Uidl($i); # gets the unquie id my $body = $pop->Body($i); $body = decode_qp($body); #decode quoted printable body say "$uni"; say "$header\n"; say "$body"; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: is it possible to use Perl to process Outlook emails?
by Anonymous Monk on Nov 07, 2014 at 16:30 UTC | |
by Anonymous Monk on Nov 07, 2014 at 21:25 UTC |
In Section
Seekers of Perl Wisdom