------------------------------------------------
On Mon, 25 Aug 2003 13:15:26 -0500, "Dan Muey" <[EMAIL PROTECTED]> wrote:
> 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?
>
I *believe* that the Mail::Box suite can do something very similar. I know there has
been quite a bit of work done on it to make operations like this very speedy.
Personally I haven't used this particular chunk of functionality from that distro, but
I have used other parts and they worked well.
http://perl.overmeer.net/mailbox/
http://danconia.org
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
