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

 

 

 

 

 

 

 

Save HTML Email Embedded Images

Saves HTML embedded items to files in a subdirectory. Images, style sheets, and anything else embedded within HTML, are not considered to be attachments. Instead, these items are "related items". The Chilkat email object provides a set of methods/properties for accessing the related items within an email.

Download Chilkat Perl Module

use chilkat;

#  Create a MailMan or Imap object first for the purpose
#  of unlocking the component. (Only one is necessary)
$mailman = new chilkat::CkMailMan();
$mailman->UnlockComponent("anything for 30-day trial");
$imap = new chilkat::CkImap();
$imap->UnlockComponent("anything for 30-day trial");

$email = new chilkat::CkEmail();

#  Load an email object containing HTML with embedded images.
#  This .eml can be downloaded from:
#  http://www.example-code.com/testData/HtmlEmail.eml

$success = $email->LoadEml("HtmlEmail.eml");
if ($success != 1) {
    print $email->lastErrorText() . "\n";
    exit;
}

#  Iterate over the related items.
#  Print the file name and save each to a file.

for ($i = 0; $i <= $email->get_NumRelatedItems() - 1; $i++) {

    print $email->getRelatedFilename($i) . "\r\n";

    $success = $email->SaveRelatedItem($i,"myRelatedItems");
    if ($success != 1) {
        print $email->lastErrorText() . "\n";
        exit;
    }

}

 

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

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