Unicode C

Process New Email by Scanning for Senders

Scan email and save application-selected emails to EML files with unique filenames. Unicode C

#include <C_CkImapW.h>
#include <C_CkMessageSetW.h>
#include <C_CkEmailBundleW.h>
#include <C_CkEmailW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkImapW imap;
    BOOL fetchUids;
    HCkMessageSetW messageSet;
    HCkEmailBundleW bundle;
    BOOL headersOnly;
    HCkEmailW emailHeader;
    HCkEmailW fullEmail;
    int i;
    int numEmails;
    const wchar_t *uidStr;
    int uid;
    const wchar_t *filename;

    success = FALSE;

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    imap = CkImapW_Create();

    // Connect to an IMAP server.
    // Use TLS
    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;
    }

    // We can choose to fetch UIDs or sequence numbers.
    fetchUids = TRUE;

    // Fetch messages from the mailbox using a search criteria.
    // This example finds NEW emails: these are emails that have the RECENT flag set, but not the SEEN flag:
    messageSet = CkMessageSetW_Create();
    success = CkImapW_QueryMbx(imap,L"NEW",fetchUids,messageSet);
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkMessageSetW_Dispose(messageSet);
        return;
    }

    // This example will download headers, and then download
    // the full email for those emails sent from a contact
    // in our database.

    // When downloading headers, each email object contains
    // (obviously) the headers, but the body will be missing.
    // Also, attachments will not be included.  However, it is
    // possible to get information about the attachments
    // as well as the complete size of the email.
    bundle = CkEmailBundleW_Create();
    headersOnly = TRUE;
    success = CkImapW_FetchMsgSet(imap,headersOnly,messageSet,bundle);
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkMessageSetW_Dispose(messageSet);
        CkEmailBundleW_Dispose(bundle);
        return;
    }

    // Loop over the email objects...
    emailHeader = CkEmailW_Create();
    fullEmail = CkEmailW_Create();
    i = 0;
    numEmails = CkEmailBundleW_getMessageCount(bundle);
    while (i < numEmails) {
        CkEmailBundleW_EmailAt(bundle,i,emailHeader);

        // The sender's email address and name are available
        // in the From, FromAddress, and FromName properties.
        // If the sender is "Chilkat Support <support@chilkatsoft.com",
        // then the From property will hold the entire string.
        // the FromName property contains"Chilkat Support",
        // and the FromAddress property contains "support@chilkatsoft.com"
        wprintf(L"%s\n",CkEmailW_ck_from(emailHeader));
        wprintf(L"%s\n",CkEmailW_fromAddress(emailHeader));
        wprintf(L"%s\n",CkEmailW_fromName(emailHeader));

        // Assume at this point your code checks to see if the sender
        // is one in your contacts database.  If so, this is
        // the code you would write to download the entire
        // email and save it to a file.

        // The ckx-imap-uid header field is added when
        // headers are downloaded.  This makes it possible
        // to get the UID from the email object.
        uidStr = CkEmailW_getHeaderField(emailHeader,L"ckx-imap-uid");
        uid = wcstol(uidStr);

        success = CkImapW_FetchEmail(imap,FALSE,uid,TRUE,fullEmail);
        if (success == FALSE) {
            wprintf(L"%s\n",CkImapW_lastErrorText(imap));
            CkImapW_Dispose(imap);
            CkMessageSetW_Dispose(messageSet);
            CkEmailBundleW_Dispose(bundle);
            CkEmailW_Dispose(emailHeader);
            CkEmailW_Dispose(fullEmail);
            return;
        }

        // You can use the GenerateFilename method to
        // generate a unique filename...
        filename = CkEmailW_generateFilename(fullEmail);

        // SaveEml saves the entire email, including attachments.
        success = CkEmailW_SaveEml(fullEmail,filename);

        wprintf(L"--\n");

        i = i + 1;
    }

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


    CkImapW_Dispose(imap);
    CkMessageSetW_Dispose(messageSet);
    CkEmailBundleW_Dispose(bundle);
    CkEmailW_Dispose(emailHeader);
    CkEmailW_Dispose(fullEmail);

    }