Send Identical Email to Distribution List

Sends an identical email to a distribution list.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

#  The mailman object is used for sending and receiving email.
$mailman = new chilkat::CkMailMan();

#  Any string argument automatically begins the 30-day trial.
$success = $mailman->UnlockComponent("30-day trial");
if ($success != 1) {
    print "Component unlock failed" . "\n";
    exit;
}

#  Set the SMTP server.
$mailman->put_SmtpHost("mail.chilkatsoft.com");
$mailman->put_SmtpUsername('admin@chilkatsoft.com');
$mailman->put_SmtpPassword("****");

#  Create a new email object
$email = new chilkat::CkEmail();

$email->put_Subject("This is a test");
$email->put_Body("This is a test");
$email->put_From('Chilkat Support <support@chilkatsoft.com>');

#  Load a text file containing email addresses, one per line,
#  into a StringArray object. (In some programming languages,
#  this is a CkStringArray.)
$sa = new chilkat::CkStringArray();
$success = $sa->LoadFromFile("distributionList.txt");
if ($success != 1) {
    print "Failed to load distributionList.txt" . "\n";
    exit;
}

#  Note: the distributionList.txt file contains one email
#  address per line.  For example:
# 
#  matt@chilkatsoft.com
#  "Chilkat Admin" <admin@chilkatsoft.com>
#  <support@chilkatsoft.com>
# 
#  An email address may contain both the friendly name (in quote)
#  and the email address (in angled brackets).  The friendly
#  name is optional.  When the friendly name is missing,
#  angled brackets are optional.

#  If the SendIndividual property is 1, then the email
#  is sent individually to each recipient in the list using
#  the "To" header field.

#  If the SendIndividual property is 0, then emails
#  are sent in batches of 100 BCC's.  Your program should
#  provide a single "To" address, such as:
$email->AddTo("My List",'listAdmin@chilkatsoft.com');

#  This example will send emails individually, so we'll clear
#  the "To" list.
$email->ClearTo();

#  Set the mailman's SendIndividual property = 1
$mailman->put_SendIndividual(1);

$success = $mailman->SendToDistributionList($email,$sa);
if ($success != 1) {
    print $mailman->lastErrorText() . "\n";
}
else {
    print "Mail Sent!" . "\n";
}