Classify Email as Bounce (DSN) or Automated Reply

Demonstrates how to use the Chilkat Bounce component to determine if an email is an bounce (DSN) or an automated reply.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

use chilkat;

$bounce = new chilkat::CkBounce();

$success = $bounce->UnlockComponent("Anything for 30-day trial");
if ($success == 0) {
    print "Failed to unlock component" . "\n";
    exit;
}

$email = new chilkat::CkEmail();

#  Load an email from a .eml file.
#  (This example loads an Email object from a .eml file,
#  but the object could have been read
#  directly from a POP3 or IMAP mail server using
#  Chilkat's POP3 or IMAP implementations.)
$success = $email->LoadEml("sampleBounce.eml");
if ($success == 0) {
    print $email->lastErrorText() . "\n";
    exit;
}

$success = $bounce->ExamineEmail($email);
if ($success == 0) {
    print $bounce->lastErrorText() . "\n";
    exit;
}

if ($bounce->get_BounceType() == 1) {
    #  Hard bounce, log the email address
    print "Hard Bounce: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 2) {
    #  Soft bounce, log the email address
    print "Soft Bounce: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 3) {
    #  General bounce, no email address available.
    print "General Bounce: No email address" . "\r\n";
}

if ($bounce->get_BounceType() == 4) {
    #  General bounce, log the email address
    print "General Bounce: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 5) {
    #  Mail blocked, log the email address
    print "Mail Blocked: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 6) {
    #  Auto-reply, log the email address
    print "Auto-Reply: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 7) {
    #  Transient (recoverable) Failure, log the email address
    print "Transient Failure: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 8) {
    #  Subscribe request, log the email address
    print "Subscribe Request: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 9) {
    #  Unsubscribe Request, log the email address
    print "Unsubscribe Request: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 10) {
    #  Virus Notification, log the email address
    print "Virus Notification: " . $bounce->bounceAddress() . "\r\n";
}

if ($bounce->get_BounceType() == 11) {
    #  Suspected bounce.
    #  This should be rare.  It indicates that the Bounce
    #  component found strong evidence that this is a bounced
    #  email, but couldn//t quite recognize everything it
    #  needed to be 100% sure.  Feel free to notify
    #  support@chilkatsoft.com regarding emails having this
    #  bounce type.
    print "Suspected Bounce!" . "\r\n";
}