Send Signed Email using PFX File

Demonstrates how to send a signed email using a digital certificate w/ private key stored in a PFX file.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;
certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
cert: CHILKATMAILLib2_TLB.IChilkatCert;
cert2: TChilkatCert;

begin
//  The mailman object is used for sending and receiving email.
mailman := TChilkatMailMan2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Component unlock failed');
    Exit;
  end;

//  Set the SMTP server.
mailman.SmtpHost := 'smtp.mymailserver.com';

//  Create a new email object
email := CoChilkatEmail2.Create();

email.Subject := 'This email is signed';
email.Body := 'This is a digitally signed mail';
email.From := 'Chilkat Admin <admin@chilkatsoft.com>';
email.AddTo('Chilkat Support','support@chilkatsoft.com');

//  Indicate that the email should be sent signed.
email.SendSigned := 1;

//  Create an instance of a certificate store object, load a PFX file,
//  locate the certificate we need, and use it for signing.
//  (a PFX file may contain more than one certificate.)
certStore := CoChilkatCertStore.Create();
//  The 1st argument is the filename, the 2nd arg is the
//  PFX file's password:
success := certStore.LoadPfxFile('chilkatsoft_secret.pfx','secret');
if (success <> 1) then
  begin
    ShowMessage(certStore.LastErrorText);
    Exit;
  end;

cert := certStore.FindCertBySubjectE('admin@chilkatsoft.com') As CHILKATMAILLib2_TLB.IChilkatCert;
if (cert = nil ) then
  begin
    ShowMessage(certStore.LastErrorText);
    Exit;
  end;

//  If a PFX file is known to contain a single certificate,
//  you may load it directly into a Chilkat certificate object.
//  This snippet of source code shows how:
cert2 := TChilkatCert.Create(Self);
//  The 1st argument is the filename, the 2nd arg is the
//  PFX file's password:
success := cert2.LoadPfxFile('chilkatsoft_secret.pfx','secret');
if (success <> 1) then
  begin
    ShowMessage(cert.LastErrorText);
    Exit;
  end;

//  This example will use the cert from the certStore...
email.SetSigningCert(cert As CHILKATMAILLib2_TLB.IChilkatCert);

//  Send a signed email.
success := mailman.SendEmail(email As CHILKATMAILLib2_TLB.IChilkatEmail2);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
  end
else
  begin
    //  The LastErrorText property provides information
    //  even when successful.
    ShowMessage(mailman.LastErrorText);
    ShowMessage('Mail Sent!');
  end;
end;