Perl

Add Email Attachment from FTP

Downloads (into memory) a file from an FTP server and adds it as an attachment to an email.

Note: This example requires Chilkat v9.5.0.63 or later.

Perl

use chilkat();

$success = 0;

# Note: This example requires Chilkat v9.5.0.63 or later.

# This example assumes Chilkat Ftp2 to have been previously unlocked.
# See Unlock Ftp2 for sample code.

$ftp = chilkat::CkFtp2->new();

$ftp->put_Hostname("www.my-ftp-server.com");
$ftp->put_Username("mFtpLogin");
$ftp->put_Password("myFtpPassword");

# Connect to the FTP server.
$success = $ftp->ConnectOnly();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Authenticate with the FTP server.
$success = $ftp->LoginAfterConnectOnly();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Move to the remove directory where our file is located.
$success = $ftp->ChangeRemoteDir("qa_data");
if ($success == 1) {
    $success = $ftp->ChangeRemoteDir("pdf");
}

if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Download...
$pdfData = chilkat::CkBinData->new();
$success = $ftp->GetFileBd("fishing.pdf",$pdfData);
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

$ftp->Disconnect();

# Create an email object, and add the PDF as an attachment.
$email = chilkat::CkEmail->new();
$email->put_Subject("Test with PDF attachment.");
$email->put_Body("This is a plain-text body..");

# Add the PDF attachment.  (This method call requires Chilkat v9.5.0.63 or later)
$success = $email->AddAttachmentBd("fishing.pdf",$pdfData,"application/pdf");
if ($success != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

# Save the email and examine with a text editor to see the PDF attachment is present..
$email->SaveEml("qa_output/out.eml");

print "Success." . "\r\n";