Perl

Forward an Email using CreateForward

See more Email Object Examples

Reads an email from an IMAP server, creates a forward version of the email using the CreateForward method, and sends the email to another recipient. 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";

$eForward = chilkat::CkEmail->new();
$success = $email->ToForward($eForward);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

# The eForward email has no To or CC recipients yet.
# Add one or more..
$eForward->AddTo("Joe",'joe@example.com');

# We also need to specify the From name/address.
$eForward->put_FromAddress('matt@someMailServer.com');
$eForward->put_FromName("Matt");

# If we wish to add text at the start of the email body:
$sbHtmlBody = chilkat::CkStringBuilder->new();
if ($eForward->HasHtmlBody() == 1) {
    $sbHtmlBody->Append($eForward->getHtmlBody());
    $sbHtmlBody->Prepend("<p>Hello, this is an email I'm forwarding to you...</p>");
    $eForward->SetHtmlBody($sbHtmlBody->getAsString());
}

$sbPtBody = chilkat::CkStringBuilder->new();
if ($eForward->HasPlainTextBody() == 1) {
    $sbPtBody->Append($eForward->getPlainTextBody());
    $sbPtBody->Prepend("Hello, this is an email I'm forwarding to you...\r\n\r\n");
    $eForward->SetTextBody($sbPtBody->getAsString(),"text/plain");
}

# 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";