(AutoIt) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oImap = ObjCreate("Chilkat.Imap")

; Connect using TLS.
$oImap.Ssl = True
$oImap.Port = 993
Local $bSuccess = $oImap.Connect("imap.example.com")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Authenticate
$bSuccess = $oImap.Login("email_account_login","email_account_password")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Select an IMAP mailbox
$bSuccess = $oImap.SelectMailbox("Inbox/postacert")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Search for messages having "POSTA CERTIFICATA: Invio File" in the subject.
Local $bFetchUids = True
Local $oMessageSet = $oImap.Search("SUBJECT ""POSTA CERTIFICATA: Invio File""",$bFetchUids)
If ($oImap.LastMethodSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

If ($oMessageSet.Count < 1) Then
    ConsoleWrite("No messages found." & @CRLF)

    Exit
EndIf

; For our example, we'll process only the 1st email in the messageSet.
; Download the MIME source of the email into a StringBuilder object.
Local $oEmail = $oImap.FetchSingle($oMessageSet.GetId(0),$oMessageSet.HasUids)
If ($oImap.LastMethodSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)

    Exit
EndIf

; The email should contain an attached email.
; The Invoice XML is contained within the attached email.
Local $oAttachedEmail = $oEmail.GetAttachedMessage(0)
If ($oEmail.LastMethodSuccess = False) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)

    Exit
EndIf

; Get the MIME of the attached email..
$oSbMime = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oAttachedEmail.GetMimeSb($oSbMime)

; Load it into a Chilkat MIME object.
$oMime = ObjCreate("Chilkat.Mime")
$bSuccess = $oMime.LoadMimeSb($oSbMime)

; Examine the structure of the MIME.
ConsoleWrite($oMime.GetStructure("text") & @CRLF)

; 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
$oBdP7m = ObjCreate("Chilkat.BinData")
; Get the 2nd sub-part, at index 1 because index 0 is the 1st sub-part.
Local $oMimeP7m = $oMime.GetPart(1)
If ($oMime.LastMethodSuccess <> True) Then
    ConsoleWrite("Failed to get 2nd sub-part. Perhaps the MIME does not have a 2nd sub-part?" & @CRLF)
    Exit
EndIf

$bSuccess = $oMimeP7m.GetBodyBd($oBdP7m)

; Verify the signature, which also extracts the content contained within the opaque signature.
$oCrypt = ObjCreate("Chilkat.Crypt2")
$bSuccess = $oCrypt.OpaqueVerifyBd($oBdP7m)
If ($bSuccess = False) Then
    ConsoleWrite($oCrypt.LastErrorText & @CRLF)
    Exit
EndIf

; The bdP7m now contains the Invoice XML.
; Load it into an XML object.
$oXml = ObjCreate("Chilkat.Xml")
$bSuccess = $oXml.LoadBd($oBdP7m,True)

ConsoleWrite($oXml.GetXml() & @CRLF)

; 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

ConsoleWrite("success." & @CRLF)