Read S/MIME Encrypted Email

Read S/MIME encrypted email.

Download Chilkat IMAP ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
imap: TChilkatImap;
success: Integer;
numToFetch: Integer;
bundle: CHILKATIMAPLib_TLB.IChilkatEmailBundle2;
i: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
imap := TChilkatImap.Create(Self);

//  Anything unlocks the component and begins a fully-functional 30-day trial.
success := imap.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Connect to an IMAP server.
success := imap.Connect('mail.chilkatsoft.com');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Login
success := imap.Login('myLogin','myPassword');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Select an IMAP mailbox
success := imap.SelectMailbox('Inbox');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  The AutoUnwrapSecurity method controls whether signed/encrypted emails are automatically
//  decrypted and/or verified.

//  When set to 1, which is the default, security envelopes are automatically "unwrapped"
//  when a message is retrieved from the server. Signed emails are automatically verified, and
//  encrypted emails are automatically decrypted, restoring the email to the original state before
//  signing and/or encrypting. Information about the signing and encrypting certificates can be
//  retrieved from the Email object (methods: GetSignedByCert, GetEncryptedByCert;
//  properties: SignedBy, EncryptedBy, SignaturesValid, Decrypted, ReceivedSigned,
//  ReceivedEncrypted).

//  This example will explicity set AutoUnwrapSecurity to 1, even though it's
//  already the default value:
imap.AutoUnwrapSecurity := 1;

//  The NumMessages property contains the number of messages in the selected mailbox.
numToFetch := imap.NumMessages;
//  Download all the email in the Inbox.

bundle := imap.FetchSequence(1,numToFetch);
if (bundle = nil ) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Loop over the bundle,

for i := 0 to bundle.MessageCount - 1 do
  begin

    email := bundle.GetEmail(i) As CHILKATMAILLib2_TLB.IChilkatEmail2;

    Memo1.Lines.Add(email.From);
    Memo1.Lines.Add(email.Subject);

    //  At this point, if the email was signed and/or encrypted, it is already "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 when received.');
        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 when received.');
        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;

    //  The email's body, HTML body, attachments, etc.
    //  are decrypted and available just like any non-encrypted email.

    Memo1.Lines.Add('--');

  end;

//  Disconnect from the IMAP server.
imap.Disconnect();


end;