(Unicode 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++ C++ Builder Linux C/C++ Alpine Linux C/C++	MacOS C/C++ iOS C/C++ Android C/C++ MinGW C/C++

#include <CkImapW.h>
#include <CkMessageSetW.h>
#include <CkEmailW.h>
#include <CkStringBuilderW.h>
#include <CkMimeW.h>
#include <CkBinDataW.h>
#include <CkCrypt2W.h>
#include <CkXmlW.h>

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

    CkImapW imap;

    // Connect using TLS.
    imap.put_Ssl(true);
    imap.put_Port(993);
    bool success = imap.Connect(L"imap.example.com");
    if (success == false) {
        wprintf(L"%s\n",imap.lastErrorText());
        return;
    }

    // Authenticate
    success = imap.Login(L"email_account_login",L"email_account_password");
    if (success == false) {
        wprintf(L"%s\n",imap.lastErrorText());
        return;
    }

    // Select an IMAP mailbox
    success = imap.SelectMailbox(L"Inbox/postacert");
    if (success == false) {
        wprintf(L"%s\n",imap.lastErrorText());
        return;
    }

    // Search for messages having "POSTA CERTIFICATA: Invio File" in the subject.
    bool fetchUids = true;
    CkMessageSetW *messageSet = imap.Search(L"SUBJECT \"POSTA CERTIFICATA: Invio File\"",fetchUids);
    if (imap.get_LastMethodSuccess() == false) {
        wprintf(L"%s\n",imap.lastErrorText());
        return;
    }

    if (messageSet->get_Count() < 1) {
        wprintf(L"No messages found.\n");
        delete messageSet;
        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.
    CkEmailW *email = imap.FetchSingle(messageSet->GetId(0),messageSet->get_HasUids());
    if (imap.get_LastMethodSuccess() == false) {
        wprintf(L"%s\n",imap.lastErrorText());
        delete messageSet;
        return;
    }

    delete messageSet;

    // The email should contain an attached email.
    // The Invoice XML is contained within the attached email.
    CkEmailW *attachedEmail = email->GetAttachedMessage(0);
    if (email->get_LastMethodSuccess() == false) {
        wprintf(L"%s\n",email->lastErrorText());
        delete email;
        return;
    }

    delete email;

    // Get the MIME of the attached email..
    CkStringBuilderW sbMime;
    success = attachedEmail->GetMimeSb(sbMime);
    delete attachedEmail;

    // Load it into a Chilkat MIME object.
    CkMimeW mime;
    success = mime.LoadMimeSb(sbMime);

    // Examine the structure of the MIME.
    wprintf(L"%s\n",mime.getStructure(L"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
    CkBinDataW bdP7m;
    // Get the 2nd sub-part, at index 1 because index 0 is the 1st sub-part.
    CkMimeW *mimeP7m = mime.GetPart(1);
    if (mime.get_LastMethodSuccess() != true) {
        wprintf(L"Failed to get 2nd sub-part. Perhaps the MIME does not have a 2nd sub-part?\n");
        return;
    }

    success = mimeP7m->GetBodyBd(bdP7m);
    delete mimeP7m;

    // Verify the signature, which also extracts the content contained within the opaque signature.
    CkCrypt2W crypt;
    success = crypt.OpaqueVerifyBd(bdP7m);
    if (success == false) {
        wprintf(L"%s\n",crypt.lastErrorText());
        return;
    }

    // The bdP7m now contains the Invoice XML.
    // Load it into an XML object.
    CkXmlW xml;
    success = xml.LoadBd(bdP7m,true);

    wprintf(L"%s\n",xml.getXml());

    // 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

    wprintf(L"success.\n");
    }