Perl Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

Perl Examples

Quick Start
Perl Unicode
Perl Byte Array
Perl Certs
Perl Email
Perl Encryption
Perl FTP
HTML-to-XML
Perl HTTP
Perl IMAP
Perl MHT
Perl MIME
Perl RSA
Perl S/MIME
Perl Signatures
Perl Socket
Perl Spider
Perl Tar
Perl Upload
Perl XML
Perl XMP
Perl Zip

More Examples...
String
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

 

 

 

 

 

 

 

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";
}

 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.