Send Email with Inline Attachment

Create an send an email with an inline attachment.

Download Chilkat Perl Module

use chilkat;

#  The mailman object is used for sending and receiving email.
$mailman = new chilkat::CkMailMan();

#  Any string argument automatically begins the 30-day trial.
$success = $mailman->UnlockComponent("30-day trial");
if ($success != 1) {
    print "Component unlock failed" . "\n";
    exit;
}

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

#  You may need a login/password.  In many cases,
#  authentication is not required when sending local email
#  (i.e. to email addresses having the same domain as the
#  SMTP server), but is required when sending to non-local
#  recipients.
$mailman->put_SmtpUsername("myLogin");
$mailman->put_SmtpPassword("myPassword");

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

$email->put_Subject("This is a test");
$email->put_Body("This is a test");
$email->put_From('Chilkat Support <support@chilkatsoft.com>');
$email->AddTo("Chilkat Admin",'admin@chilkatsoft.com');

#  Add any number of attachments:

$contentType = $email->addFileAttachment("c:/temp/dude.gif");
if ($contentType eq null ) {
    print $email->lastErrorText() . "\n";
    exit;
}

#  Update the content-disposition header field for the attachment
#  so that it's sent inline:
#  AddAttachmentHeader replaces the header field if it already
#  exists.
$email->AddAttachmentHeader(0,"content-disposition","inline; filename=\"dude.gif\"");

$success = $mailman->SendEmail($email);
if ($success != 1) {
    print $mailman->lastErrorText() . "\n";
}
else {
    print "Mail Sent!" . "\n";
}