PowerBuilder

Add S/MIME Signature using PFX

See more MIME Examples

Add a digital signature to a MIME message using the certificate + private key from a PFX file. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mime
oleobject loo_Cert
string ls_PfxFilepath
string ls_PfxPassword

li_Success = 0

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

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

// Load a PFX file into a certificate object.
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

ls_PfxFilepath = "pfxFiles/something.pfx"
ls_PfxPassword = "secret"
li_Success = loo_Cert.LoadPfxFile(ls_PfxFilepath,ls_PfxPassword)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    return
end if

li_Success = loo_Mime.SetBodyFromPlainText("This is the plain-text MIME body.")

loo_Mime.Charset = "utf-8"
loo_Mime.Encoding = "quoted-printable"

// Sign the MIME (adds a PKCS7 detached signature)
li_Success = loo_Mime.AddDetachedSignature(loo_Cert)
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    return
end if

// Save the S/MIME to a file.
li_Success = loo_Mime.SaveMime("/temp/signedMime.txt")
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    destroy loo_Cert
    return
end if

Write-Debug "success!"


destroy loo_Mime
destroy loo_Cert