(Perl) Forward by Attaching the Existing Email to a New Email

Demonstrates how to forward an email by attaching the email to a new email. This example uses the AttachEmail method, which is new in Chilkat v9.5.0.87.

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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.
$imap = chilkat::CkImap->new();

# Connect to an IMAP server.
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.someMailServer.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Login
$success = $imap->Login("myLogin","myPassword");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

$numEmails = $imap->get_NumMessages();

# Fetch the email at the last sequence number.
# (We are assuming the Inbox has at least 1 email)
# email is a Email
$email = $imap->FetchSingle($numEmails,0);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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

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

# Create a new email.  The email we just read will be attached to this email.
$eForward = chilkat::CkEmail->new();

$eForward->AddTo("Chilkat Support",'support@chilkatsoft.com');

$eForward->put_FromAddress('matt@someMailServer.com');
$eForward->put_FromName("Matt");
$eForward->put_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..
$mailman = chilkat::CkMailMan->new();

$mailman->put_SmtpHost("smtp.someMailServer.com");
$mailman->put_SmtpUsername("myLogin");
$mailman->put_SmtpPassword("myPassword");
$mailman->put_SmtpPort(587);
$mailman->put_StartTLS(1);

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

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

print "Mail Sent!" . "\r\n";