Send S/MIME Signed Email

Send digitally signed email using the digital certificate of the recipient. To successfully sign, the sender's certificate must be pre-installed with private key. Typically, this is done via a .pfx file, or through Internet Explorer. If your code is going to run within ASP, ASP.NET, or a Windows Service, you will need to follow the instructions here (http://blog.chilkatsoft.com/?p=149) to import your certificate w/ private key such that it is accessible by the calling process.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

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 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');

  end;

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

mailman.SmtpUsername := 'myLogin';
mailman.SmtpPassword := 'myPassword';

//  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('Test','test@testemail.net');

//  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 As CHILKATMAILLib2_TLB.IChilkatEmail2);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
  end
else
  begin
    ShowMessage(mailman.LastErrorText);
    ShowMessage('Mail Sent!');
  end;
end;