Visual FoxPro

Provide a Certificate Vault to an Email

Demonstrates the Chilkat Email.UseCertVault method, which adds an XML certificate vault to the email's internal certificate and private-key lookup sources for encryption, decryption, signing, and verification. This example builds a vault from a PFX and attaches it to the email.

Background: A certificate vault is a portable, in-memory store of certificates and private keys. Instead of wiring up each certificate individually for every operation, you load your credentials into one XmlCertVault and hand it to the email; Chilkat then draws on it automatically whenever it needs a key — to decrypt an incoming message, sign an outgoing one, or verify a signature. This is especially convenient on platforms without an OS certificate store.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loVault

lnSuccess = 0

*  Demonstrates the UseCertVault method, which adds an XML certificate vault to the email's
*  internal certificate and private-key lookup sources for encryption, decryption, signing,
*  and verification.

loEmail = CreateObject('Chilkat.Email')

*  Build a certificate vault from a PFX (certificate + private key).
loVault = CreateObject('Chilkat.XmlCertVault')
lnSuccess = loVault.AddPfxFile("qa_data/certs/certs.pfx","pfx_password")
IF (lnSuccess = 0) THEN
    ? loVault.LastErrorText
    RELEASE loEmail
    RELEASE loVault
    CANCEL
ENDIF

*  Make the vault available to the email object for crypto operations.
lnSuccess = loEmail.UseCertVault(loVault)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loVault
    CANCEL
ENDIF

? "Certificate vault attached to the email."

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

RELEASE loEmail
RELEASE loVault