Perl

Send Email With Attachments

See more SMTP Examples

Demonstrates how to send an email with attachments. 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.

# The mailman object is used for sending (SMTP) and receiving (POP3) email.
my $mailman = Chilkat2::MailMan->new;

# Set the SMTP server.
$mailman->SmtpHost('smtp.my-tls-mail-server.com');

# Set the SMTP login/password (if required)
$mailman->SmtpUsername('MY_SMTP_USERNAME');
$mailman->SmtpPassword('MY_SMTP_PASSWORD');

# Connect to SMTP port 465 using TLS.
$mailman->SmtpSsl(1);
$mailman->SmtpPort(465);

# Create a new email object
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;
}

# Call SendEmail to connect to the SMTP server and send.
# The connection (i.e. session) to the SMTP server remains
# open so that subsequent SendEmail calls may use the
# same connection.
$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";