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

    }