Convert Email HTML to Plain-Text Alternative

Loads an HTML email from a web page, converts the HTML to a plain-text alternative body, and sends it.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

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

#  The MHT component can be used to convert an HTML page
#  from a URL, file, or in-memory HTML into an email
#  with embedded images and style sheets.
$mht = new chilkat::CkMht();

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

$success = $mht->UnlockComponent("30-day trial");
if ($success != 1) {
    print "Mht component unlock failed" . "\n";
    exit;
}

$mht->put_UseCids(1);
$email = $mht->GetEmail("http://www.bonairefishing.com/");
if ($email eq null ) {
    print $mht->lastErrorText() . "\n";
    exit;
}

$email->put_Subject("Test HTML/plain-text email");

$email->AddTo("Chilkat Support",'support@chilkatsoft.com');
$email->put_From('admin@chilkatsoft.com');

$h2t = new chilkat::CkHtmlToText();
$success = $h2t->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $h2t->lastErrorText() . "\n";
    exit;
}

#  Get the email's HTML body.

$html = $email->getHtmlBody();

#  Convert it to plain text:

$plainText = $h2t->toText($html);

#  Add a plain-text alternative to the email:
$email->AddPlainTextAlternativeBody($plainText);

$mailman->put_SmtpHost("mail.chilkatsoft.com");
$mailman->put_SmtpUsername('admin@chilkatsoft.com');
$mailman->put_SmtpPassword("*myPassword5*");

$success = $mailman->SendEmail($email);
if ($success != 1) {
    print $mailman->lastErrorText() . "\n";
    exit;
}

print "HTML/plain-text Email Sent!" . "\n";