Perl

Change the Filename of an Attachment

Demonstrates the Chilkat Email.SetAttachmentFilename method, which changes the filename of the attachment at a given zero-based index. This example adds an attachment and renames it, printing the filename before and after.

Background: The attachment filename is what a recipient sees and what most clients suggest when saving the file. Renaming it is handy when the original name is unclear, unsafe, or generic — for example giving a machine-generated tmp12345 a meaningful name like invoice.pdf before sending.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the SetAttachmentFilename method, which changes the filename of the
# attachment at the given zero-based index.

my $email = Chilkat2::Email->new;
$email->Subject('Set attachment filename');

$email->AddStringAttachment('oldname.txt', 'Some notes.');
print 'Filename before: ', $email->GetAttachmentFilename(0), "\n";

# Change the filename of the first attachment (index 0).
my $success = $email->SetAttachmentFilename(0, 'newname.txt');
if (!$success) {
    print $email->LastErrorText, "\n";
    exit;
}

print 'Filename after: ', $email->GetAttachmentFilename(0), "\n";