(Excel) Extract XML from FatturaPA .p7m

Demonstrates how to verify the signature and extract the XML from a FatturaPA .p7m file.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim bd As Chilkat.BinData
Set bd = Chilkat.NewBinData

success = bd.LoadFile("qa_data/p7m/IT01879020517_abc.xml.p7m")
If (success <> True) Then
    Debug.Print "Failed to load the .p7m file"
    Exit Sub
End If

Dim crypt As Chilkat.Crypt2
Set crypt = Chilkat.NewCrypt2

' Verify and extrct the payload contained within the .p7m.
' In this case, the payload is the FatturaPA XML.
' If successful, the resulting bd will contain only the XML.

bVerified = crypt.OpaqueVerifyBd(bd)
If (bVerified <> True) Then
    Debug.Print crypt.LastErrorText
    Debug.Print "Failed to extract and verify."
    Exit Sub
End If

' Save the XML to a file.
success = bd.WriteFile("qa_output/zIT01879020517_abc.xml")

' Alternatively, load into an XML object and emit.
Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
success = xml.LoadXml(bd.GetString("utf-8"))

Debug.Print xml.GetXml()