Help for this page

Select Code to Download


  1. or download this
            for (my $i = 1; $i <= $tmessages; $i++) {
                if (!$imap->seen($i)) {
                        $nmessages++;
                }
        }
  2. or download this
    use IO::Socket::SSL;
use Mail::IMAPClient;

...
if (!$imap->login) {
        die "Couldn't authenticate: $@\n";
}