(Xojo Plugin) Load Signed and/or Encrypted Email and Unwrap Security Layers

The LoadEml method loads an email (.eml file containing the MIME of an email) and automatically unwraps the digital signature and encryption security layers. A program can then examine the properties of the email object to see what was unwrapped.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim email As New Chilkat.Email

// Provide PFX/.p12 files for any certs+keys needed for decryption.
// Signature verification does not need anything extra.  
// (Also, Chilkat will automatically find and use pre-installed certs + private keys needed for decryption
// on a Windows system.)
Dim success As Boolean
success = email.AddPfxSourceFile("/pfxFiles/certs_and_keys_1.pfx","pfxPassword1")
If (success <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

success = email.AddPfxSourceFile("/pfxFiles/certs_and_keys_2.pfx","pfxPassword2")
If (success <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

// ...

// Load a potentially signed and/or encrypted email.
success = email.LoadEml("someDir/someEmail.eml")

// If the email was signed and/or encrypted, it was "unwrapped", i.e.
// the email is already decrypted and in a state as if it were never signed or encrypted.

// You may check to see if the email was received encrypted or signed, and if so,
// whether it was successfully unwrapped and who signed or encrypted it:
If (email.ReceivedEncrypted = True) Then

    System.DebugLog("This email was encrypted.")
    If (email.Decrypted = True) Then
        System.DebugLog("This email was successfully decrypted.  It was encrypted by:")
        System.DebugLog(email.EncryptedBy)
    Else
        System.DebugLog("This email was not decrypted.")
    End If

End If

If (email.ReceivedSigned = True) Then

    System.DebugLog("This email was signed.")
    If (email.SignaturesValid = True) Then
        System.DebugLog("The signature was verified.  It was signed by:")
        System.DebugLog(email.SignedBy)
    Else
        System.DebugLog("The signature verification failed.")
    End If

End If

// At this point, the contents of the email, including attachments, can be accessed normally..