(Perl) Email Body - Plain Text and/or HTML

Any given email may have a plain-text body, an HTML body, or both. The Body property will return the HTML body by default (if it exists) otherwise it will return the plain-text body. There are methods for checking to see if an email has a particular body (HasPlainTextBody and HasHtmlBody) and there are methods for getting a specific body: GetHtmlBody, GetPlainTextBody.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$email = chilkat::CkEmail->new();

# Load an email from a .eml

$success = $email->LoadEml("something.eml");
if ($success != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

# Display the default Body:
print $email->body() . "\r\n";

# If a plain-text body is present, display it:

$bText = $email->HasPlainTextBody();
if ($bText == 1) {
    print $email->getPlainTextBody() . "\r\n";
}

# If an HTML body is present, display the HTML source:

$bHtml = $email->HasHtmlBody();
if ($bHtml == 1) {
    print $email->getHtmlBody() . "\r\n";
}