Tcl
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 Tcl Downloads

Tcl

load ./chilkat.dll

set success 0

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

set imap [new_CkImap]

# Connect using TLS.
CkImap_put_Ssl $imap 1
CkImap_put_Port $imap 993
set success [CkImap_Connect $imap "imap.example.com"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Authenticate
set success [CkImap_Login $imap "email_account_login" "email_account_password"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Select an IMAP mailbox
set success [CkImap_SelectMailbox $imap "Inbox/postacert"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Search for messages having "POSTA CERTIFICATA: Invio File" in the subject.
set fetchUids 1
set messageSet [new_CkMessageSet]

set success [CkImap_QueryMbx $imap "SUBJECT \"POSTA CERTIFICATA: Invio File\"" $fetchUids $messageSet]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    exit
}

if {[CkMessageSet_get_Count $messageSet] < 1} then {
    puts "No messages found."
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    exit
}

# For our example, we'll process only the 1st email in the messageSet.
# Download the MIME source of the email into a StringBuilder object.
set email [new_CkEmail]

set success [CkImap_FetchEmail $imap 0 [CkMessageSet_GetId $messageSet 0] [CkMessageSet_get_HasUids $messageSet] $email]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    delete_CkEmail $email
    exit
}

# The email should contain an attached email.
# The Invoice XML is contained within the attached email.
set attachedEmail [new_CkEmail]

set success [CkEmail_GetAttachedEmail $email 0 $attachedEmail]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    delete_CkEmail $email
    delete_CkEmail $attachedEmail
    exit
}

# Get the MIME of the attached email..
set sbMime [new_CkStringBuilder]

set success [CkEmail_GetMimeSb $attachedEmail $sbMime]

# Load it into a Chilkat MIME object.
set mime [new_CkMime]

set success [CkMime_LoadMimeSb $mime $sbMime]

# Examine the structure of the MIME.
puts [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
set bdP7m [new_CkBinData]

# Get the 2nd sub-part, at index 1 because index 0 is the 1st sub-part.

set mimeP7m [new_CkMime]

set success [CkMime_PartAt $mime 1 $mimeP7m]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    delete_CkEmail $email
    delete_CkEmail $attachedEmail
    delete_CkStringBuilder $sbMime
    delete_CkMime $mime
    delete_CkBinData $bdP7m
    delete_CkMime $mimeP7m
    exit
}

if {[CkMime_get_LastMethodSuccess $mime] != 1} then {
    puts "Failed to get 2nd sub-part. Perhaps the MIME does not have a 2nd sub-part?"
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    delete_CkEmail $email
    delete_CkEmail $attachedEmail
    delete_CkStringBuilder $sbMime
    delete_CkMime $mime
    delete_CkBinData $bdP7m
    delete_CkMime $mimeP7m
    exit
}

set success [CkMime_GetBodyBd $mimeP7m $bdP7m]

# Verify the signature, which also extracts the content contained within the opaque signature.
set crypt [new_CkCrypt2]

set success [CkCrypt2_OpaqueVerifyBd $crypt $bdP7m]
if {$success == 0} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    delete_CkEmail $email
    delete_CkEmail $attachedEmail
    delete_CkStringBuilder $sbMime
    delete_CkMime $mime
    delete_CkBinData $bdP7m
    delete_CkMime $mimeP7m
    delete_CkCrypt2 $crypt
    exit
}

# The bdP7m now contains the Invoice XML.
# Load it into an XML object.
set xml [new_CkXml]

set success [CkXml_LoadBd $xml $bdP7m 1]

puts [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

puts "success."

delete_CkImap $imap
delete_CkMessageSet $messageSet
delete_CkEmail $email
delete_CkEmail $attachedEmail
delete_CkStringBuilder $sbMime
delete_CkMime $mime
delete_CkBinData $bdP7m
delete_CkMime $mimeP7m
delete_CkCrypt2 $crypt
delete_CkXml $xml