Perl

Create MIME Containing Plain-Text

See more MIME Examples

Calls SetBodyFromPlainText to load plain-text into the MIME body. Also sets the Content-Type header to "text/plain", and the Content-Transfer-Encoding to an appropriate transfer encoding based on the characters found in the text. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $mime = Chilkat2::Mime->new;

# Add a few header fields:
my $success = $mime->AddHeaderField('Description', 'this is a test');
$success = $mime->AddHeaderField('MyId', '123');

my $textBody = 'This is the plain-text body';

$success = $mime->SetBodyFromPlainText($textBody);

print $mime->GetMime(), "\n";

# The MIME should look like this:

# Description: this is a test
# MyId: 123
# Content-Type: text/plain;
# Content-Transfer-Encoding: 7bit
#
# This is the plain-text body

# Note: The Content-Transfer-Encoding may be changed.
# For example, to use "base64", do this:
$mime->Encoding('base64');

# Show the MIME again, this time using the base64
# transfer encoding:
print $mime->GetMime(), "\n";

# It should look like this:

# Description: this is a test
# MyId: 123
# Content-Type: text/plain
# Content-Transfer-Encoding: base64
#
# VGhpcyBpcyB0aGUgcGxhaW4tdGV4dCBib2R5
#