Perl

Send Email With Attachments

See more SMTP Examples

Demonstrates how to send an email with attachments. Perl

use chilkat();

$success = 0;

# 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.
$mailman = chilkat::CkMailMan->new();

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

# Set the SMTP login/password (if required)
$mailman->put_SmtpUsername("MY_SMTP_USERNAME");
$mailman->put_SmtpPassword("MY_SMTP_PASSWORD");

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

# Create a new email object
$email = chilkat::CkEmail->new();

$email->put_Subject("This is a test");
$email->put_Body("This is a test");
$email->put_From('Chilkat Support <support@chilkatsoft.com>');
$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.
$contentType = $email->addFileAttachment("qa_data/jpg/starfish.jpg");
if ($email->get_LastMethodSuccess() != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

$contentType = $email->addFileAttachment("qa_data/pdf/fishing.pdf");
if ($email->get_LastMethodSuccess() != 1) {
    print $email->lastErrorText() . "\r\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 != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

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

print "Mail with attachments sent!" . "\r\n";