Unicode C

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.

Unicode C

#include <C_CkImapW.h>
#include <C_CkEmailW.h>
#include <C_CkMailManW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkImapW imap;
    int numEmails;
    HCkEmailW email;
    HCkEmailW eForward;
    HCkMailManW mailman;

    success = FALSE;

    // 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 = CkImapW_Create();

    // Connect to an IMAP server.
    CkImapW_putSsl(imap,TRUE);
    CkImapW_putPort(imap,993);
    success = CkImapW_Connect(imap,L"imap.example.com");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        return;
    }

    // Login
    success = CkImapW_Login(imap,L"myLogin",L"myPassword");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        return;
    }

    // Select an IMAP mailbox
    success = CkImapW_SelectMailbox(imap,L"Inbox");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        return;
    }

    numEmails = CkImapW_getNumMessages(imap);

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

    email = CkEmailW_Create();
    success = CkImapW_FetchEmail(imap,FALSE,numEmails,FALSE,email);
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkEmailW_Dispose(email);
        return;
    }

    // Disconnect from the IMAP server.
    CkImapW_Disconnect(imap);

    wprintf(L"%s\n",CkEmailW_subject(email));

    // Create a new email.  The email we just read will be attached to this email.
    eForward = CkEmailW_Create();

    CkEmailW_AddTo(eForward,L"Joe",L"joe@example.com");

    CkEmailW_putFromAddress(eForward,L"matt@somewhere.com");
    CkEmailW_putFromName(eForward,L"Matt");
    CkEmailW_putSubject(eForward,L"This is an email with another email attached.");

    CkEmailW_SetHtmlBody(eForward,L"<p>Hello, this is an email I'm forwarding to you.  See the attached email.</p>");

    // Attach the email.
    CkEmailW_AttachEmail(eForward,email);

    // We could save the .eml, then double-click on it to view in our mail program, such as Outlook or Thunderbird..
    CkEmailW_SaveEml(eForward,L"qa_output/forward.eml");

    // We could send (forward) the email..
    mailman = CkMailManW_Create();

    CkMailManW_putSmtpHost(mailman,L"smtp.example.com");
    CkMailManW_putSmtpUsername(mailman,L"myLogin");
    CkMailManW_putSmtpPassword(mailman,L"myPassword");
    CkMailManW_putSmtpPort(mailman,587);
    CkMailManW_putStartTLS(mailman,TRUE);

    success = CkMailManW_SendEmail(mailman,eForward);
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkImapW_Dispose(imap);
        CkEmailW_Dispose(email);
        CkEmailW_Dispose(eForward);
        CkMailManW_Dispose(mailman);
        return;
    }

    success = CkMailManW_CloseSmtpConnection(mailman);
    if (success != TRUE) {
        wprintf(L"Connection to SMTP server not closed cleanly.\n");
    }

    wprintf(L"Mail Sent!\n");


    CkImapW_Dispose(imap);
    CkEmailW_Dispose(email);
    CkEmailW_Dispose(eForward);
    CkMailManW_Dispose(mailman);

    }