Perl

Rename Email Attachments After Adding

Demonstrates how to rename email attachments after adding but before sending. 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 $mailman = Chilkat2::MailMan->new;

$mailman->SmtpHost('smtp.my-mail-server.com');
$mailman->SmtpUsername('MY_SMTP_USERNAME');
$mailman->SmtpPassword('MY_SMTP_PASSWORD');
$mailman->SmtpSsl(1);
$mailman->SmtpPort(465);

my $email = Chilkat2::Email->new;

$email->Subject('This is a test');
$email->Body('This is a test');
$email->From('Chilkat Support <support@chilkatsoft.com>');
my $success = $email->AddTo('Chilkat Admin', 'admin@chilkatsoft.com');
# To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

# Add some attachments.
# The AddFileAttachment method returns the value of the content-type it chose for the attachment.
my $contentType = $email->AddFileAttachment('qa_data/jpg/starfish.jpg');
if (!$email->LastMethodSuccess) {
    print $email->LastErrorText, "\n";
    exit;
}

$contentType = $email->AddFileAttachment('qa_data/pdf/fishing.pdf');
if (!$email->LastMethodSuccess) {
    print $email->LastErrorText, "\n";
    exit;
}

# If we save the email to a .eml, we can examine in a text editor.
$success = $email->SaveEml('qa_output/e1.eml');
if (!$success) {
    print $email->LastErrorText, "\n";
    print "Failed to save .eml\n";
    exit;
}

# We see the following in the e1.eml
# Notice that Chilkat replaced the full path with just the filename.
# The full local path is not part of the email that gets sent..

# ...
# --------------020807050607070004010609
# Content-Type: image/jpeg; name="starfish.jpg"
# Content-Transfer-Encoding: base64
# Content-Disposition: attachment; filename="starfish.jpg"
#
# ...
# --------------020807050607070004010609
# Content-Type: application/pdf; name="fishing.pdf"
# Content-Transfer-Encoding: base64
# Content-Disposition: attachment; filename="fishing.pdf"
# ...

# Before sending, each filename can be changed within the email object.
# For example:
$success = $email->SetAttachmentFilename(0, 'orange_starfish.jpg');
$success = $email->SetAttachmentFilename(1, 'tuna_fishing.pdf');

# Look at the new MIME source of the email in a  text editor...
$success = $email->SaveEml('qa_output/e2.eml');
if (!$success) {
    print $email->LastErrorText, "\n";
    print "Failed to save .eml\n";
    exit;
}

# You'll see this:

# ...
# --------------020807050607070004010609
# Content-Type: image/jpeg; name="orange_starfish.jpg"
# Content-Transfer-Encoding: base64
# Content-Disposition: attachment; filename="orange_starfish.jpg"
#
# ...
# --------------020807050607070004010609
# Content-Type: application/pdf; name="tuna_fishing.pdf"
# Content-Transfer-Encoding: base64
# Content-Disposition: attachment; filename="tuna_fishing.pdf"
# ...

# Send the email with the updated filenames..
$success = $mailman->SendEmail($email);
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

$success = $mailman->CloseSmtpConnection();
if (!$success) {
    print "Connection to SMTP server not closed cleanly.\n";
}

print "Mail with attachments sent!\n";