(PHP Extension) 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 PHP Downloads PHP Extension for Windows, Linux, MacOS, Alpine Linux, Solaris

<?php

// The version number (9_5_0) should match version of the Chilkat extension used, omitting the micro-version number.
// For example, if using Chilkat v9.5.0.48, then include as shown here:
include("chilkat_9_5_0.php");

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

$mailman = new CkMailMan();

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

// Create a new email object
$email = new CkEmail();
$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 = new CkBinData();
$mailman->RenderToMimeBd($email,$bdMime);

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

$sbRecipients = new CkStringBuilder();

$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 != true) {
            print $mailman->lastErrorText() . "\n";
            exit;
        }

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

}

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

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

?>