(PHP ActiveX) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows Note: The php_com_dotnet.dll may need to be enabled inside of php.ini.

<?php

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

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.MailMan')
$mailman = new COM("Chilkat.MailMan");

$mailman->SmtpHost = 'smtp.mymailserver.com';
$mailman->SmtpPort = 465;
$mailman->SmtpSsl = 1;
$mailman->SmtpUsername = 'myUsername';
$mailman->SmtpPassword = 'myPassword';

// Create a new email object
// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Email')
$email = new COM("Chilkat.Email");
$email->Subject = 'This is a test';
$email->Body = 'This is a test';
$email->From = 'Senders Name <sender@example.com>';
$email->AddTo('Subscribers','subscribers@example.com');

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.BinData')
$bdMime = new COM("Chilkat.BinData");
$mailman->RenderToMimeBd($email,$bdMime);

// Load a file containing one email address per line.
// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.StringTable')
$distList = new COM("Chilkat.StringTable");
$success = $distList->AppendFromFile(1000,'utf-8','qa_data/distList.txt');
if ($success == 0) {
    print $distList->LastErrorText . "\n";
    exit;
}

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.StringBuilder')
$sbRecipients = new COM("Chilkat.StringBuilder");

$i = 0;
$szDistList = $distList->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 . "\n";
            exit;
        }

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

}

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

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

?>