Verify Email Addresses with VerifyRecipients

Verify email recipients. This example demonstrates the usage of the VerifyRecipients method.

Please see this blog post for more information VerifyRecipients -- Validating Email Addresses

Download Chilkat Perl Module

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.
#  This code was tested against both mail.chilkatsoft.com
#  and smtp.comcast.net

#  mailman.SmtpHost = "mail.chilkatsoft.com";
#  mailman.SmtpUsername = "admin@chilkatsoft.com";
#  mailman.SmtpPassword = "****";

$mailman->put_SmtpHost("smtp.comcast.net");

#  Create an email object.
#  We'll never actually send this email.  It's only used
#  to test the recipients.
$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>');

#  Add recipients to be checked.
#  (When this was tested, a_real_person was replaced with
#  a valid email address.)
$email->AddTo("A Real Person",'a_real_person@comcast.net');
$email->AddTo("Testing",'doesNotExist7434@comcast.net');
$email->AddTo("Admin",'admin@chilkatsoft.com');
$email->AddTo("Not Exist",'doesNotExist@chilkatsoft.com');
$email->AddCC("Not Exist",'DoesNotExist7213@gmail.com');
$email->AddBcc("Exists",'chilkat.support@gmail.com');

#  NOTE: A mail server can only verify the email addresses
#  specific to it's domain.  Therefore, when using smtp.comcast.net,
#  only comcast.net email addresses will be flagged as invalid,
#  and when using mail.chilkatsoft.com, only chilkatsoft.com
#  email addresses are flagged as invalid.

#  Add all bad email addresses to saBadAddrs:
$saBadAddrs = new chilkat::CkStringArray();
$success = $mailman->VerifyRecipients($email,$saBadAddrs);
if ($success != 1) {
    print $mailman->lastErrorText() . "\n";

}
else {
    #  List the invalid email addresses:
    if ($saBadAddrs->get_Count() > 0) {

        $n = $saBadAddrs->get_Count();
        for ($i = 0; $i <= $n - 1; $i++) {
            print $saBadAddrs->getString($i) . "\r\n";
        }

        #  Examine the SMTP session log to see how the email
        #  addresses were caught:
        print $mailman->smtpSessionLog() . "\n";
    }
}