(C) IMAP Read PEC Email of Aruba and Extract the Invoice XML Files

IMAP Read PEC Email of Aruba and Extract the Invoice XML Files.

Chilkat C/C++ Library Downloads
MS Visual C/C++ Linux/CentOS C/C++ Alpine Linux C/C++ MAC OS X C/C++	armhf/aarch64 C/C++ C++ Builder iOS C/C++ Android C/C++	Solaris C/C++ MinGW C/C++

#include <C_CkImap.h>
#include <C_CkMessageSet.h>
#include <C_CkEmail.h>
#include <C_CkStringBuilder.h>
#include <C_CkMime.h>
#include <C_CkBinData.h>
#include <C_CkCrypt2.h>
#include <C_CkXml.h>

void ChilkatSample(void)
    {
    HCkImap imap;
    BOOL success;
    BOOL fetchUids;
    HCkMessageSet messageSet;
    HCkEmail email;
    HCkEmail attachedEmail;
    HCkStringBuilder sbMime;
    HCkMime mime;
    HCkBinData bdP7m;
    HCkMime mimeP7m;
    HCkCrypt2 crypt;
    HCkXml xml;

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

    imap = CkImap_Create();

    // Connect using TLS.
    CkImap_putSsl(imap,TRUE);
    CkImap_putPort(imap,993);
    success = CkImap_Connect(imap,"imap.example.com");
    if (success == FALSE) {
        printf("%s\n",CkImap_lastErrorText(imap));
        CkImap_Dispose(imap);
        return;
    }

    // Authenticate
    success = CkImap_Login(imap,"email_account_login","email_account_password");
    if (success == FALSE) {
        printf("%s\n",CkImap_lastErrorText(imap));
        CkImap_Dispose(imap);
        return;
    }

    // Select an IMAP mailbox
    success = CkImap_SelectMailbox(imap,"Inbox/postacert");
    if (success == FALSE) {
        printf("%s\n",CkImap_lastErrorText(imap));
        CkImap_Dispose(imap);
        return;
    }

    // Search for messages having "POSTA CERTIFICATA: Invio File" in the subject.
    fetchUids = TRUE;
    messageSet = CkImap_Search(imap,"SUBJECT \"POSTA CERTIFICATA: Invio File\"",fetchUids);
    if (CkImap_getLastMethodSuccess(imap) == FALSE) {
        printf("%s\n",CkImap_lastErrorText(imap));
        CkImap_Dispose(imap);
        return;
    }

    if (CkMessageSet_getCount(messageSet) < 1) {
        printf("No messages found.\n");
        CkMessageSet_Dispose(messageSet);
        CkImap_Dispose(imap);
        return;
    }

    // For our example, we'll process only the 1st email in the messageSet.
    // Download the MIME source of the email into a StringBuilder object.
    email = CkImap_FetchSingle(imap,CkMessageSet_GetId(messageSet,0),CkMessageSet_getHasUids(messageSet));
    if (CkImap_getLastMethodSuccess(imap) == FALSE) {
        printf("%s\n",CkImap_lastErrorText(imap));
        CkMessageSet_Dispose(messageSet);
        CkImap_Dispose(imap);
        return;
    }

    CkMessageSet_Dispose(messageSet);

    // The email should contain an attached email.
    // The Invoice XML is contained within the attached email.
    attachedEmail = CkEmail_GetAttachedMessage(email,0);
    if (CkEmail_getLastMethodSuccess(email) == FALSE) {
        printf("%s\n",CkEmail_lastErrorText(email));
        CkEmail_Dispose(email);
        CkImap_Dispose(imap);
        return;
    }

    CkEmail_Dispose(email);

    // Get the MIME of the attached email..
    sbMime = CkStringBuilder_Create();
    success = CkEmail_GetMimeSb(attachedEmail,sbMime);
    CkEmail_Dispose(attachedEmail);

    // Load it into a Chilkat MIME object.
    mime = CkMime_Create();
    success = CkMime_LoadMimeSb(mime,sbMime);

    // Examine the structure of the MIME.
    printf("%s\n",CkMime_getStructure(mime,"text"));

    // The MIME has this structure:
    // multipart/mixed
    //     application/octet-stream
    //     application/octet-stream     <-- This is where the XML is contained.   It is within an opaque signature.
    //     text/plain

    // The 2nd application/octet-stream MIME header looks like this:

    // ------=_Part_329673_-1348225228.1579889273592
    // Content-Type: application/octet-stream; name="SM99999_99aaa.xml.p7m"
    // Content-Transfer-Encoding: base64
    // Content-Disposition: attachment; filename="SM99999_99aaa.xml.p7m"

    // Let's get the binary content of the .p7m
    bdP7m = CkBinData_Create();
    // Get the 2nd sub-part, at index 1 because index 0 is the 1st sub-part.
    mimeP7m = CkMime_GetPart(mime,1);
    if (CkMime_getLastMethodSuccess(mime) != TRUE) {
        printf("Failed to get 2nd sub-part. Perhaps the MIME does not have a 2nd sub-part?\n");
        CkImap_Dispose(imap);
        CkStringBuilder_Dispose(sbMime);
        CkMime_Dispose(mime);
        CkBinData_Dispose(bdP7m);
        return;
    }

    success = CkMime_GetBodyBd(mimeP7m,bdP7m);
    CkMime_Dispose(mimeP7m);

    // Verify the signature, which also extracts the content contained within the opaque signature.
    crypt = CkCrypt2_Create();
    success = CkCrypt2_OpaqueVerifyBd(crypt,bdP7m);
    if (success == FALSE) {
        printf("%s\n",CkCrypt2_lastErrorText(crypt));
        CkImap_Dispose(imap);
        CkStringBuilder_Dispose(sbMime);
        CkMime_Dispose(mime);
        CkBinData_Dispose(bdP7m);
        CkCrypt2_Dispose(crypt);
        return;
    }

    // The bdP7m now contains the Invoice XML.
    // Load it into an XML object.
    xml = CkXml_Create();
    success = CkXml_LoadBd(xml,bdP7m,TRUE);

    printf("%s\n",CkXml_getXml(xml));

    // We have XML such as the following:
    // 
    // <?xml version="1.0" encoding="windows-1252"?>
    // <?xml-stylesheet type="text/xsl" href="fatturapa_v1.2.xsl"?>
    // <p:FatturaElettronica versione="FPR12" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" 
    //     xmlns:p="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2" 
    //     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
    //     <FatturaElettronicaHeader>
    // 	...
    //     </FatturaElettronicaHeader>
    //     <FatturaElettronicaBody>
    // 	...
    //     </FatturaElettronicaBody>
    // </p:FatturaElettronica>

    // Use this online tool to generate parsing code from sample XML: 
    // Generate Parsing Code from XML

    printf("success.\n");


    CkImap_Dispose(imap);
    CkStringBuilder_Dispose(sbMime);
    CkMime_Dispose(mime);
    CkBinData_Dispose(bdP7m);
    CkCrypt2_Dispose(crypt);
    CkXml_Dispose(xml);

    }