Howdy group!
Anyone familiar with logging into Pop3 mailbox with Perl know any ways yo grab a
message via it's Message-Id header?
Say for instance you have a pop3 account with 1000 messages in it.
You have a list of 10 Message-Id's from the header of ten of those messages.
You could log in, grab the header foreach message and if it has a Message-Id that
matches then do what you will with it.
Log out;
This will work but going through 1000 messages for ten messages is quite over kill;
Anyone know of a faster way/function/module that you could do something like:
use Mail::POP3Client;
my $pop = .....;
my $message = $pop->HeadAndBody('<[EMAIL PROTECTED]>');
Or grab the msgnum via Message-Id
my $msgnum = $pop->GrabNumViaMessageId('<[EMAIL PROTECTED]>');
my $message = $pop->HeadAndBody($msgnum);
Any ideas??? Or am I stuck iterating throught tons of messages and checking them all
for the proper Message-Id header?
TIA
Dan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
