Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loCert

lnSuccess = 0

*  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('Chilkat.Email')
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('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("qa_data/certs/recipient.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

lnSuccess = loEmail.AddEncryptCert(loCert)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

*  Request encrypted sending.
loEmail.SendEncrypted = 1

? "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