Unicode C

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. Unicode C

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

void ChilkatSample(void)
    {
    BOOL success;
    HCkImapW imap;
    int numEmails;
    HCkEmailW email;
    HCkEmailW eForward;
    HCkStringBuilderW sbHtmlBody;
    HCkStringBuilderW sbPtBody;
    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));

    eForward = CkEmailW_Create();
    success = CkEmailW_ToForward(email,eForward);
    if (success == FALSE) {
        wprintf(L"%s\n",CkEmailW_lastErrorText(email));
        CkImapW_Dispose(imap);
        CkEmailW_Dispose(email);
        CkEmailW_Dispose(eForward);
        return;
    }

    // The eForward email has no To or CC recipients yet.
    // Add one or more..
    CkEmailW_AddTo(eForward,L"Joe",L"joe@example.com");

    // We also need to specify the From name/address.
    CkEmailW_putFromAddress(eForward,L"matt@someMailServer.com");
    CkEmailW_putFromName(eForward,L"Matt");

    // If we wish to add text at the start of the email body:
    sbHtmlBody = CkStringBuilderW_Create();
    if (CkEmailW_HasHtmlBody(eForward) == TRUE) {
        CkStringBuilderW_Append(sbHtmlBody,CkEmailW_getHtmlBody(eForward));
        CkStringBuilderW_Prepend(sbHtmlBody,L"<p>Hello, this is an email I'm forwarding to you...</p>");
        CkEmailW_SetHtmlBody(eForward,CkStringBuilderW_getAsString(sbHtmlBody));
    }

    sbPtBody = CkStringBuilderW_Create();
    if (CkEmailW_HasPlainTextBody(eForward) == TRUE) {
        CkStringBuilderW_Append(sbPtBody,CkEmailW_getPlainTextBody(eForward));
        CkStringBuilderW_Prepend(sbPtBody,L"Hello, this is an email I'm forwarding to you...\r\n\r\n");
        CkEmailW_SetTextBody(eForward,CkStringBuilderW_getAsString(sbPtBody),L"text/plain");
    }

    // 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);
        CkStringBuilderW_Dispose(sbHtmlBody);
        CkStringBuilderW_Dispose(sbPtBody);
        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);
    CkStringBuilderW_Dispose(sbHtmlBody);
    CkStringBuilderW_Dispose(sbPtBody);
    CkMailManW_Dispose(mailman);

    }