use Mail::POP3Client to send an email out : Mail « Network « Perl






  1. Perl
  2. Network
  3. Mail

use Mail::POP3Client to send an email out

    

use Mail::POP3Client;

$mail = new Mail::POP3Client("username", "password", 
"pop3.yourserver.com");

if ($mail->Count) {

    print "You have ", $mail->Count, " new message(s).\n";

    print "Storing message(s) to disk.\n";

    open FILEHANDLE, ">file.txt";

    for($loop_index = 1; $loop_index <= $mail->Count; $loop_index++) {

        print FILEHANDLE $mail->HeadAndBody(1);

    }

    close FILEHANDLE;
}








Related examples in the same category

1.Send email out
2.Send email out with SMTP
3.Send mail
4.Sending mail with Net::SMTP on Windows
5.Get emails from server and save the emails to local drive
6.Open SENDMAIL