(Perl) Send Email to Distribution List

Sends the same email to a list of 1000 email addresses in 50 sends where each email has 20 recipients.

Note: Chilkat is not intended nor designed for mass emailing. A solution such as this might be used for a corporate emailing to employees, or an emailing to newsletter subscribers.

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();

$mailman->put_SmtpHost("smtp.mymailserver.com");
$mailman->put_SmtpPort(465);
$mailman->put_SmtpSsl(1);
$mailman->put_SmtpUsername("myUsername");
$mailman->put_SmtpPassword("myPassword");

# Create a new email object
$email = chilkat::CkEmail->new();
$email->put_Subject("This is a test");
$email->put_Body("This is a test");
$email->put_From('Senders Name <sender@example.com>');
$email->AddTo("Subscribers",'subscribers@example.com');

$bdMime = chilkat::CkBinData->new();
$mailman->RenderToMimeBd($email,$bdMime);

# Load a file containing one email address per line.
$distList = chilkat::CkStringTable->new();
$success = $distList->AppendFromFile(1000,"utf-8","qa_data/distList.txt");
if ($success == 0) {
    print $distList->lastErrorText() . "\r\n";
    exit;
}

$sbRecipients = chilkat::CkStringBuilder->new();

$i = 0;
$szDistList = $distList->get_Count();
$j = 0;
while ($i < $szDistList) {

    # Build a list of comma-separated recipients.
    if ($j > 0) {
        $sbRecipients->Append(",");
    }

    $sbRecipients->Append($distList->stringAt($i));

    $i = $i + 1;
    $j = $j + 1;

    # If we have 20 recipients, or we have the final recipient in the final chunk, then send.
    if (($j == 20) or ($i == $szDistList)) {
        $success = $mailman->SendMimeBd('sender@example.com',$sbRecipients->getAsString(),$bdMime);
        if ($success != 1) {
            print $mailman->lastErrorText() . "\r\n";
            exit;
        }

        $j = 0;
        $sbRecipients->Clear();
    }

}

$success = $mailman->CloseSmtpConnection();
if ($success != 1) {
    print "Connection to SMTP server not closed cleanly." . "\r\n";
}

print "Email sent to distirbution list." . "\r\n";