Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how to check for new mail using perl??
- Thread starter kwi
- Start date
if you do:
#!/usr/local/bin/perl
use Mail:
OP3Client;
$pop = new Mail:OP3Client( USER => "me",
PASSWORD => "mypassword",
HOST => "pop3.do.main" );
for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->HeadAndBody( $i ) ) {
print $_, "\n"; # and then save it somewhere
Delete($i);
}
print "\n";
that will retreive and delete all messages in the mailbox, next time you look there will be inly new emails in there Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
#!/usr/local/bin/perl
use Mail:
OP3Client;$pop = new Mail:
OP3Client( USER => "me",PASSWORD => "mypassword",
HOST => "pop3.do.main" );
for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->HeadAndBody( $i ) ) {
print $_, "\n"; # and then save it somewhere
Delete($i);
}
print "\n";
that will retreive and delete all messages in the mailbox, next time you look there will be inly new emails in there Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
- Status
Similar threads
