Lianja

Specify a Certificate for Encrypted Email

Demonstrates the Chilkat Email.AddEncryptCert method, which explicitly specifies a certificate to use when sending encrypted email. Call it once per recipient certificate; ClearEncryptCerts clears the list. This example loads a recipient certificate, registers it, and enables encrypted sending.

Background: When encrypting to multiple people, each recipient needs to be able to decrypt with their own private key. S/MIME handles this by encrypting the message's one-time content key separately under each recipient's public certificate and including all of those wrapped keys in the message. AddEncryptCert is how you build that recipient list — one call per certificate — giving explicit control over exactly whose certificates are used rather than relying on automatic lookup.

Chilkat Lianja Downloads

Download Chilkat for Lianja

Lianja

llSuccess = .F.

//  Demonstrates the AddEncryptCert method, which explicitly specifies a certificate for
//  sending encrypted email.  Call it once per recipient certificate.  Use ClearEncryptCerts
//  to clear the list.

loEmail = createobject("CkEmail")
loEmail.Subject = "Encrypted email"
loEmail.Body = "Encrypted to the specified recipient certificate(s)."
loEmail.From = "alice@example.com"
loEmail.AddTo("Bob","bob@example.com")

//  Load a recipient certificate (public key) and add it to the encryption cert list.
loCert = createobject("CkCert")
llSuccess = loCert.LoadFromFile("qa_data/certs/recipient.cer")
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loEmail
    release loCert
    return
endif

llSuccess = loEmail.AddEncryptCert(loCert)
if (llSuccess = .F.) then
    ? loEmail.LastErrorText
    release loEmail
    release loCert
    return
endif

//  Request encrypted sending.
loEmail.SendEncrypted = .T.

? "Added the recipient's encryption certificate."

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


release loEmail
release loCert