Retrieve mails from mailserver

sbettadpur

Hi everybody,

Iam struggling for retrieve mails from mail server using perl
iam facing some problem in blow my code
even i have the mails in my mailserver iam not getting the count of mails
only iam getting count as -1
what was the problem can any body reply back

look at my code

Expand|Select|Wrap|Line Numbers

 
$pop = new Mail::POP3Client(USER => $username,PASSWORD => $passwd, HOST=> $host,PORT=> $port,TIMEOUT =>20,AUTH_MODE => 'BEST',DEBUG => 1) ||  die "cannot establish connection with the pop3 mail server $host, $!";

print "Connection  established";

print $pop->Count();

print "<table align=center>";

for ($i=1; $i<=$pop->Count(); $i++)

{

    foreach ( $pop->Retrieve( $i ) )

    {

        print "<tr><td>$_</td></tr>\n";

    }

}

print "</table>";

thanking you.

Regards,
shiva krishna

numberwhun

In looking at the page on CPAN for Mail::POP3Client , I found the following line:

Expand|Select|Wrap|Line Numbers

 
new returns a valid Mail::POP3Client object in all cases. To test for a connection failure, you will need to check the number of messages: -1 indicates a connection error.

The -1 that you are getting is saying that there is a problem with the connection. I would check and make sure that you can login with the ID/Password you are specifying. Also, I would ensure that the mail system you are connecting to supports POP3.

Regards,

Jeff

Retrieve mails from mailserver

Post your reply

Similar topics