Perl

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.

Perl

use chilkat();

$success = 0;

# 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.example.com");
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success == 0) {
    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 = chilkat::CkEmail->new();
$success = $imap->FetchEmail(0,$numEmails,0,$email);
if ($success == 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("Joe",'joe@example.com');

$eForward->put_FromAddress('matt@somewhere.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.example.com");
$mailman->put_SmtpUsername("myLogin");
$mailman->put_SmtpPassword("myPassword");
$mailman->put_SmtpPort(587);
$mailman->put_StartTLS(1);

$success = $mailman->SendEmail($eForward);
if ($success == 0) {
    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";