Perl Requires Chilkat v11.0.0+

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