(Perl) POP3 to SMTP Forwarder

Read a POP3 mailbox and forwards the email to another email address, keeping the recipients in the original email the same.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$mailman = chilkat::CkMailMan->new();

# Set the POP3 server's hostname
$mailman->put_MailHost("pop.example.com");

# Set the POP3 login/password.
$mailman->put_PopUsername("MY_LOGIN");
$mailman->put_PopPassword("MY_PASSWORD");

# The the UIDLs for all email in the POP3 mailbox.
# saUidls is a StringArray
$saUidls = $mailman->GetUidls();
if ($mailman->get_LastMethodSuccess() == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

# Download the email from the server.  Call FetchMultipleMime
# because we don't want to load the emails into email objects.
# (We'll delete the emails that are forwarded without error.)
# Note: It is not reasonable to call this method for a mailbox containing
# a huge number of emails.  For large mailboxes, it's better to download
# one by one and process each email independently. This way, if a 
# server or communications error occurs, it's possible to write code
# that can resume.
# saMime is a StringArray
$saMime = $mailman->FetchMultipleMime($saUidls);

if ($mailman->get_LastMethodSuccess() == 0) {

    print $mailman->lastErrorText() . "\r\n";
    exit;
}

# Set the SMTP hostname for sending.
$mailman->put_SmtpHost("smtp.example.com");
$mailman->put_SmtpUsername("MY_SMTP_LOGIN");
$mailman->put_SmtpPassword("MY_SMTP_PASSWORD");

$n = $saMime->get_Count();

$fromAddr = 'me@example.com';
$toAddr = 'recipient@somewhere.com';

$bAllOk = 1;

$i = 0;
while ($i < $n) {

    $strMime = $saMime->getString($i);

    # Forward the email.
    $success = $mailman->SendMime($fromAddr,$toAddr,$strMime);
    if ($success != 1) {
        $bAllOk = 0;
        print $mailman->lastErrorText() . "\r\n";
        # Force loop exit.
        $i = $n;
    }

    $i = $i + 1;
}

# Remove the emails in saUidls from the POP3 server.
if ($bAllOk == 1) {
    $success = $mailman->DeleteMultiple($saUidls);
    if ($success != 1) {
        print $mailman->lastErrorText() . "\r\n";
    }

}

print "bAllOk = " . $bAllOk . "\r\n";