Perl

Save a MIME Body (Attachment) to a File

Demonstrates the Chilkat Mime.SaveBody method, which writes the decoded body bytes of the current part to a file. The only argument is the file path. Base64 and quoted-printable are decoded; MIME headers and multipart framing are not written.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is the direct way to extract a part's content to disk — saving an attachment or the payload of a part as its real, decoded bytes. Chilkat reverses the transfer encoding so the file contains the actual content, not its Base64 form. To reach a specific attachment in a multipart message, navigate to that part (for example with PartAt) before calling this.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $mime = Chilkat2::Mime->new;
my $success = $mime->LoadMimeFile('qa_data/message.eml');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# Write the decoded body bytes of the current part to a file.  Base64 and quoted-printable are
# decoded; MIME headers and multipart framing are not written.  This is how you save an
# attachment or the raw content of a part.
$success = $mime->SaveBody('qa_output/body_content.dat');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

print "Body saved.\n";