Perl

Send Email to Distribution List

See more SMTP Examples

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.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $mailman = Chilkat2::MailMan->new;

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

# Create a new email object
my $email = Chilkat2::Email->new;
$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');

my $bdMime = Chilkat2::BinData->new;
$mailman->RenderToMimeBd($email, $bdMime);

# Load a file containing one email address per line.
my $distList = Chilkat2::StringTable->new;
my $success = $distList->AppendFromFile(1000, 'utf-8', 'qa_data/distList.txt');
if (!$success) {
    print $distList->LastErrorText, "\n";
    exit;
}

my $sbRecipients = Chilkat2::StringBuilder->new;

my $i = 0;
my $szDistList = $distList->Count;
my $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) || ($i == $szDistList)) {
        $success = $mailman->SendMimeBd('sender@example.com', $sbRecipients->GetAsString(), $bdMime);
        if (!$success) {
            print $mailman->LastErrorText, "\n";
            exit;
        }

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

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

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