(Delphi ActiveX) Load Signed and/or Encrypted Email and Unwrap Security Layers

The LoadEml method loads an email (.eml file containing the MIME of an email) and automatically unwraps the digital signature and encryption security layers. A program can then examine the properties of the email object to see what was unwrapped.

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
email: TChilkatEmail;
success: Integer;

begin
email := TChilkatEmail.Create(Self);

// Provide PFX/.p12 files for any certs+keys needed for decryption.
// Signature verification does not need anything extra.  
// (Also, Chilkat will automatically find and use pre-installed certs + private keys needed for decryption
// on a Windows system.)
success := email.AddPfxSourceFile('/pfxFiles/certs_and_keys_1.pfx','pfxPassword1');
if (success <> 1) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;
success := email.AddPfxSourceFile('/pfxFiles/certs_and_keys_2.pfx','pfxPassword2');
if (success <> 1) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;
// ...

// Load a potentially signed and/or encrypted email.
success := email.LoadEml('someDir/someEmail.eml');

// If the email was signed and/or encrypted, it was "unwrapped", i.e.
// the email is already decrypted and in a state as if it were never signed or encrypted.

// You may check to see if the email was received encrypted or signed, and if so,
// whether it was successfully unwrapped and who signed or encrypted it:
if (email.ReceivedEncrypted = 1) then
  begin

    Memo1.Lines.Add('This email was encrypted.');
    if (email.Decrypted = 1) then
      begin
        Memo1.Lines.Add('This email was successfully decrypted.  It was encrypted by:');
        Memo1.Lines.Add(email.EncryptedBy);
      end
    else
      begin
        Memo1.Lines.Add('This email was not decrypted.');
      end;
  end;
if (email.ReceivedSigned = 1) then
  begin

    Memo1.Lines.Add('This email was signed.');
    if (email.SignaturesValid = 1) then
      begin
        Memo1.Lines.Add('The signature was verified.  It was signed by:');
        Memo1.Lines.Add(email.SignedBy);
      end
    else
      begin
        Memo1.Lines.Add('The signature verification failed.');
      end;
  end;

// At this point, the contents of the email, including attachments, can be accessed normally..
end;