Send digitally signed mail

Send digitally signed email using the digital certificate of the recipient. To successfully sign, the sender's certificate may be pre-installed with private key. Typically, this is done via a .pfx file, or through Internet Explorer.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
//  The mailman object is for SMTP and POP3
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');

  end;

//  Set the SMTP server.
mailman.SmtpHost := 'smtp.chilkatsoft.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 Support <admin@chilkatsoft.com>';
email.AddTo('Matt','matt@chilkatsoft.com');

//  In this example, we've already installed the certificate for "admin@chilkatsoft.com"
//  (with private key) in the current user's personal certificate store.
//  If the email.SendSigned property is set, Chilkat will
//  automatically search for and use the first non-expired certificate
//  matching the sender's email address.  Chilkat searches
//  the Current User's Personal certificate store, as well
//  as the Local Machine's Personal certificate store.
//  Run certmgr.msc to view the certs in the Current User's
//  certificate store.
email.SendSigned := 1;

success := mailman.SendEmail(email);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
  end
else
  begin
    ShowMessage('Mail Sent!');
  end;
end;