DataFlex

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 DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    Variant vVault
    Handle hoVault
    String sTemp1

    Move False To iSuccess

    //  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.

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    //  Build a certificate vault from a PFX (certificate + private key).
    Get Create (RefClass(cComChilkatXmlCertVault)) To hoVault
    If (Not(IsComObjectCreated(hoVault))) Begin
        Send CreateComObject of hoVault
    End
    Get ComAddPfxFile Of hoVault "qa_data/certs/certs.pfx" "pfx_password" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoVault To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Make the vault available to the email object for crypto operations.
    Get pvComObject of hoVault to vVault
    Get ComUseCertVault Of hoEmail vVault To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "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.


End_Procedure