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

integer li_rc
oleobject loo_Email
integer li_Success

loo_Email = create oleobject
// Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.)
li_Success = loo_Email.AddPfxSourceFile("/pfxFiles/certs_and_keys_1.pfx","pfxPassword1")
if li_Success <> 1 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

li_Success = loo_Email.AddPfxSourceFile("/pfxFiles/certs_and_keys_2.pfx","pfxPassword2")
if li_Success <> 1 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

// ...

// Load a potentially signed and/or encrypted email.
li_Success = loo_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 loo_Email.ReceivedEncrypted = 1 then

    Write-Debug "This email was encrypted."
    if loo_Email.Decrypted = 1 then
        Write-Debug "This email was successfully decrypted.  It was encrypted by:"
        Write-Debug loo_Email.EncryptedBy
    else
        Write-Debug "This email was not decrypted."
    end if

end if

if loo_Email.ReceivedSigned = 1 then

    Write-Debug "This email was signed."
    if loo_Email.SignaturesValid = 1 then
        Write-Debug "The signature was verified.  It was signed by:"
        Write-Debug loo_Email.SignedBy
    else
        Write-Debug "The signature verification failed."
    end if

end if

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


destroy loo_Email