(MFC) 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++ Libs

See Also: Using MFC CString in Chilkat

#include <CkImap.h>
#include <CkMessageSet.h>
#include <CkEmail.h>
#include <CkStringBuilder.h>
#include <CkMime.h>
#include <CkBinData.h>
#include <CkCrypt2.h>
#include <CkXml.h>

void ChilkatSample(void)
    {
    CkString strOut;

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

    CkImap imap;

    // Connect using TLS.
    imap.put_Ssl(true);
    imap.put_Port(993);
    bool success = imap.Connect("imap.example.com");
    if (success == false) {
        strOut.append(imap.lastErrorText());
        strOut.append("\r\n");
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

    // Authenticate
    success = imap.Login("email_account_login","email_account_password");
    if (success == false) {
        strOut.append(imap.lastErrorText());
        strOut.append("\r\n");
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

    // Select an IMAP mailbox
    success = imap.SelectMailbox("Inbox/postacert");
    if (success == false) {
        strOut.append(imap.lastErrorText());
        strOut.append("\r\n");
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

    // Search for messages having "POSTA CERTIFICATA: Invio File" in the subject.
    bool fetchUids = true;
    CkMessageSet *messageSet = imap.Search("SUBJECT \"POSTA CERTIFICATA: Invio File\"",fetchUids);
    if (imap.get_LastMethodSuccess() == false) {
        strOut.append(imap.lastErrorText());
        strOut.append("\r\n");
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

    if (messageSet->get_Count() < 1) {
        strOut.append("No messages found.");
        strOut.append("\r\n");
        delete messageSet;
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        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.
    CkEmail *email = imap.FetchSingle(messageSet->GetId(0),messageSet->get_HasUids());
    if (imap.get_LastMethodSuccess() == false) {
        strOut.append(imap.lastErrorText());
        strOut.append("\r\n");
        delete messageSet;
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

    delete messageSet;

    // The email should contain an attached email.
    // The Invoice XML is contained within the attached email.
    CkEmail *attachedEmail = email->GetAttachedMessage(0);
    if (email->get_LastMethodSuccess() == false) {
        strOut.append(email->lastErrorText());
        strOut.append("\r\n");
        delete email;
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

    delete email;

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

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

    // Examine the structure of the MIME.
    strOut.append(mime.getStructure("text"));
    strOut.append("\r\n");

    // 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
    CkBinData bdP7m;
    // Get the 2nd sub-part, at index 1 because index 0 is the 1st sub-part.
    CkMime *mimeP7m = mime.GetPart(1);
    if (mime.get_LastMethodSuccess() != true) {
        strOut.append("Failed to get 2nd sub-part. Perhaps the MIME does not have a 2nd sub-part?");
        strOut.append("\r\n");
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

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

    // Verify the signature, which also extracts the content contained within the opaque signature.
    CkCrypt2 crypt;
    success = crypt.OpaqueVerifyBd(bdP7m);
    if (success == false) {
        strOut.append(crypt.lastErrorText());
        strOut.append("\r\n");
        SetDlgItemText(IDC_EDIT1,strOut.getUnicode());
        return;
    }

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

    strOut.append(xml.getXml());
    strOut.append("\r\n");

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

    strOut.append("success.");
    strOut.append("\r\n");


    SetDlgItemText(IDC_EDIT1,strOut.getUnicode());

    }