Perl Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

Perl Examples

Quick Start
Perl Unicode
Perl Byte Array
Perl Certs
Perl Email
Perl Encryption
Perl FTP
HTML-to-XML
Perl HTTP
Perl IMAP
Perl MHT
Perl MIME
Perl RSA
Perl S/MIME
Perl Signatures
Perl Socket
Perl Spider
Perl Tar
Perl Upload
Perl XML
Perl XMP
Perl Zip

More Examples...
String
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

 

 

 

 

 

 

 

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";
    }
}

 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.