PowerBuilder

Set the Certificate for Decrypting S/MIME Email

Demonstrates the Chilkat Imap.SetDecryptCert method, which specifies the certificate used to decrypt S/MIME messages downloaded by this Imap object. The only argument is a Cert that has access to its private key. This example loads the certificate from a PFX file.

Note: The certificate path is relative to the application's current working directory. Supply the path to your own certificate file.

Background: An S/MIME-encrypted message can only be read with the recipient's private key. Once a decrypt certificate is set, Chilkat decrypts matching messages automatically as they are fetched, so your code works with plaintext Email objects. Use SetDecryptCert2 instead when the certificate object does not itself carry the private key.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Imap
string ls_PfxPassword
oleobject loo_Cert

li_Success = 0

//  Demonstrates the Imap.SetDecryptCert method, which specifies the certificate used to decrypt
//  S/MIME messages downloaded by this Imap object.  The only argument is a Cert that has access
//  to its private key.

loo_Imap = create oleobject
li_rc = loo_Imap.ConnectToNewObject("Chilkat.Imap")
if li_rc < 0 then
    destroy loo_Imap
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Imap.Ssl = 1
loo_Imap.Port = 993

li_Success = loo_Imap.Connect("imap.example.com")
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

li_Success = loo_Imap.Login("user@example.com","myPassword")
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

//  The PFX password is not hard-coded in source.  Insert code here to obtain it from an
//  interactive prompt, environment variable, or a secrets vault.

//  Load a certificate (with private key) from a PFX file.
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Cert.LoadPfxFile("qa_data/smime.pfx",ls_PfxPassword)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Imap
    destroy loo_Cert
    return
end if

//  Use it to automatically decrypt S/MIME messages that are subsequently downloaded.
li_Success = loo_Imap.SetDecryptCert(loo_Cert)
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    destroy loo_Cert
    return
end if

li_Success = loo_Imap.Disconnect()
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    destroy loo_Cert
    return
end if



destroy loo_Imap
destroy loo_Cert