Set the Signing Certificate and Private Key

See more Email Object Examples

Demonstrates the Chilkat Email.SetSigningCert2 method, which explicitly sets the certificate and its corresponding private key as separate objects for sending digitally signed email. This example loads a .cer certificate and a PEM private key, sets both, and enables signed sending.

var
success: Boolean;
email: HCkEmail;
cert: HCkCert;
privKey: HCkPrivateKey;

begin
success := False;

//  Demonstrates the SetSigningCert2 method, which explicitly sets the certificate and its
//  corresponding private key (as separate objects) for sending digitally signed email.

email := CkEmail_Create();
CkEmail_putSubject(email,'Signed email');
CkEmail_putBody(email,'This message will be sent with a digital signature.');
CkEmail_putFrom(email,'alice@example.com');
CkEmail_AddTo(email,'Bob','bob@example.com');

//  Load the certificate (public) and the matching private key from separate files.
cert := CkCert_Create();
success := CkCert_LoadFromFile(cert,'qa_data/certs/signer.cer');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

privKey := CkPrivateKey_Create();
success := CkPrivateKey_LoadPemFile(privKey,'qa_data/certs/signer_privkey.pem');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPrivateKey__lastErrorText(privKey));
    Exit;
  end;

//  Set the certificate and private key used to create the signature.
success := CkEmail_SetSigningCert2(email,cert,privKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

CkEmail_putSendSigned(email,True);

Memo1.Lines.Add('Signing certificate and private key set.');

//  Note: Paths such as "qa_data/..." are relative local filesystem paths,
//  relative to the current working directory of the running application.

CkEmail_Dispose(email);
CkCert_Dispose(cert);
CkPrivateKey_Dispose(privKey);