Delphi ActiveX

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 Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
email: TChilkatEmail;
cert: TChilkatCert;

begin
success := 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.

email := TChilkatEmail.Create(Self);
email.Subject := 'Signed email';
email.Body := 'This message will be sent with a digital signature.';
email.From := 'alice@example.com';
email.AddTo('Bob','bob@example.com');

//  Load a signing certificate together with its private key from a PFX file.
cert := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('qa_data/certs/signer.pfx','pfx_password');
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

//  Set the certificate used to create the signature.
success := email.SetSigningCert(cert.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

//  Request that the email be sent with a digital signature.
email.SendSigned := 1;

Memo1.Lines.Add('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.