PowerBuilder

Send an Email with a Digital Signature

Demonstrates the Chilkat Email.SendSigned property. Set it to true to have the email sent with a digital signature (the default is false). Signing also requires a certificate with access to its private key. This example loads that certificate (and its private key) from a PFX file with Cert.LoadPfxFile, supplies it via SetSigningCert, and enables signed sending.

Background: Signing is the mirror image of encrypting. To encrypt for a recipient you use their public certificate; to sign you use your own private key, and recipients verify with your public certificate. A signature does not hide the message — a signed email is still readable by anyone — but it proves who sent it and guarantees the content was not tampered with. A PFX (also called PKCS#12, .pfx or .p12) is a password-protected file that bundles a certificate together with its private key, making it a convenient single-file source for signing credentials.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Email
oleobject loo_Cert

li_Success = 0

//  Demonstrates the Email.SendSigned property with a full signing setup.  Set SendSigned
//  to true to have the email sent with a digital signature.  Signing requires a certificate
//  with access to its private key, which we load here from a PFX (.pfx / .p12) file.

loo_Email = create oleobject
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
loo_Email.Subject = "Signed email"
loo_Email.Body = "This message will be sent with a digital signature."
loo_Email.From = "alice@example.com"
loo_Email.AddTo("Bob","bob@example.com")

//  Load the signing certificate (including its private key) from a PFX file.
//  The 2nd argument is the PFX password.
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Cert.LoadPfxFile("qa_data/certs/signer.pfx","pfx_password")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Email
    destroy loo_Cert
    return
end if

//  Provide the signing certificate.
li_Success = loo_Email.SetSigningCert(loo_Cert)
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    destroy loo_Cert
    return
end if

//  Request that the email be sent with a digital signature.
loo_Email.SendSigned = 1

Write-Debug "SendSigned = " + string(loo_Email.SendSigned)

//  Note: The path "qa_data/certs/signer.pfx" is a relative local filesystem path,
//  relative to the current working directory of the running application.


destroy loo_Email
destroy loo_Cert