Visual FoxPro

Set the Signing Certificate for an Email

Demonstrates the Chilkat Email.SetSigningCert method, which sets the certificate (with access to its private key) used to create a digital signature when sending signed email. This example loads the signing certificate from a PFX, sets it, and enables signed sending.

Background: Signing uses your own private key (the opposite of encrypting, which uses the recipient's public key), so the signing certificate must include private-key access. A PFX (PKCS#12) file bundles the certificate and its private key together, which is why it is loaded here with LoadPfxFile. If the certificate and key are in separate files, use SetSigningCert2 instead.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loCert

lnSuccess = 0

*  Demonstrates the SetSigningCert method, which sets the certificate (with access to its
*  private key) used for creating a digital signature when sending signed email.

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "Signed email"
loEmail.Body = "This message will be sent with a digital signature."
loEmail.From = "alice@example.com"
loEmail.AddTo("Bob","bob@example.com")

*  Load a signing certificate together with its private key from a PFX file.
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/certs/signer.pfx","pfx_password")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

*  Set the certificate used to create the signature.
lnSuccess = loEmail.SetSigningCert(loCert)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

*  Request that the email be sent with a digital signature.
loEmail.SendSigned = 1

? "Signing certificate set."

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

RELEASE loEmail
RELEASE loCert