Perl Requires Chilkat v11.0.0+

Forward by Attaching the Existing Email to a New Email

See more Email Object Examples

Demonstrates how to forward an email by attaching the email to a new email.

This example reads an email from an IMAP server, attaches the email to a new email, and sends the new email.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# Read the 1st (most recent) email in an Inbox.
my $imap = Chilkat2::Imap->new;

# Connect to an IMAP server.
$imap->Ssl(1);
$imap->Port(993);
my $success = $imap->Connect('imap.example.com');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Login
$success = $imap->Login('myLogin', 'myPassword');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox('Inbox');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

my $numEmails = $imap->NumMessages;

# Fetch the email at the last sequence number.
# (We are assuming the Inbox has at least 1 email)

my $email = Chilkat2::Email->new;
$success = $imap->FetchEmail(0, $numEmails, 0, $email);
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Disconnect from the IMAP server.
$imap->Disconnect();

print $email->Subject, "\n";

# Create a new email.  The email we just read will be attached to this email.
my $eForward = Chilkat2::Email->new;

$eForward->AddTo('Joe', 'joe@example.com');

$eForward->FromAddress('matt@somewhere.com');
$eForward->FromName('Matt');
$eForward->Subject('This is an email with another email attached.');

$eForward->SetHtmlBody('<p>Hello, this is an email I\'m forwarding to you.  See the attached email.</p>');

# Attach the email.
$eForward->AttachEmail($email);

# We could save the .eml, then double-click on it to view in our mail program, such as Outlook or Thunderbird..
$eForward->SaveEml('qa_output/forward.eml');

# We could send (forward) the email..
my $mailman = Chilkat2::MailMan->new;

$mailman->SmtpHost('smtp.example.com');
$mailman->SmtpUsername('myLogin');
$mailman->SmtpPassword('myPassword');
$mailman->SmtpPort(587);
$mailman->StartTLS(1);

$success = $mailman->SendEmail($eForward);
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

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

print "Mail Sent!\n";