Perl

Zip an Email's Attachments into One File

Demonstrates the Chilkat Email.ZipAttachments method, which replaces all of an email's attachments with a single Zip file attachment having the specified filename. The original attachments are removed and packed into the Zip. This example adds two attachments and zips them into one.

Background: Bundling multiple attachments into a single .zip keeps a message tidy, compresses the payload, and works around recipients or gateways that limit the number of attachments. Note that the filename here (files.zip) names the attachment inside the message — it is not a path on disk. The reverse operation is UnzipAttachments.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the ZipAttachments method, which replaces all of an email's attachments
#  with a single Zip file attachment having the specified filename.  The original
#  attachments are removed and packed into the Zip.

$email = chilkat::CkEmail->new();
$email->put_Subject("Zip the attachments");

$email->AddStringAttachment("a.txt","first attachment");
$email->AddStringAttachment("b.txt","second attachment");
print "NumAttachments before = " . $email->get_NumAttachments() . "\r\n";

#  Replace all attachments with a single Zip attachment named "files.zip".
$success = $email->ZipAttachments("files.zip");
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print "NumAttachments after = " . $email->get_NumAttachments() . "\r\n";