(Delphi ActiveX) Find Certificate for Email Encryption

Demonstrates finding the recipient's certificate in the Windows certificate store and using it to send encrypted email.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
mailman: TChilkatMailMan;
email: TChilkatEmail;
recipientEmailAddr: WideString;
cert: TChilkatCert;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

mailman := TChilkatMailMan.Create(Self);

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

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

email.Subject := 'This email is encrypted';
email.Body := 'This is a digitally encrypted mail';
email.From := 'Joe <joe@example.com>';
// Emails are encrypted using the recipient's certificate.
recipientEmailAddr := 'jane@example2.com';
email.AddTo('Jane',recipientEmailAddr);

// Indicate that the email is to be sent encrypted.
email.SendEncrypted := 1;

// This example demonstrates finding the email encryption certificate
// on a Windows system where the certificate is stored in the Windows 
// certificate store.

cert := TChilkatCert.Create(Self);
// The recipient's certificate is used to encrypt.
// (Because the recipient is the only one in possession of the private key to decrypt.)
success := cert.LoadByEmailAddress(recipientEmailAddr);
if (success <> 1) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

// Specify the certificate to be used for encryption.
success := email.SetEncryptCert(cert.ControlInterface);

success := mailman.SendEmail(email.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Encrypted Mail Sent!');
  end;
end;