Send Already-Signed MIME w/ SendMime

Demonstrates how to use SendMime to send an already-signed MIME message.

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,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;
certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
cert: CHILKATMAILLib2_TLB.IChilkatCert;
signedMime: String;
fromAddr: String;
recipients: String;

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

//  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 Admin <admin@chilkatsoft.com>';
email.AddTo('Chilkat Support','support@chilkatsoft.com');

//  Indicate that the email should be sent signed.
email.SendSigned := 1;

//  Create an instance of a certificate store object, load a PFX file,
//  locate the certificate we need, and use it for signing.
//  (a PFX file may contain more than one certificate.)
certStore := CoChilkatCertStore.Create();
//  The 1st argument is the filename, the 2nd arg is the
//  PFX file's password:
success := certStore.LoadPfxFile('chilkat.pfx','myPassword');
if (success <> 1) then
  begin
    ShowMessage(certStore.LastErrorText);

  end;

cert := certStore.FindCertBySubject('Chilkat Software, Inc.') As CHILKATMAILLib2_TLB.IChilkatCert;
if (cert = nil ) then
  begin
    ShowMessage(certStore.LastErrorText);

  end;

//  This example will use the cert from the certStore...
email.SetSigningCert(cert As CHILKATMAILLib2_TLB.IChilkatCert);

//  Render the email to signed-MIME.  This is where the private
//  key is accessed and the signing happens.

signedMime := mailman.RenderToMime(email As CHILKATMAILLib2_TLB.IChilkatEmail2);

//  Now send the already-signed MIME:

fromAddr := 'admin@chilkatsoft.com';
recipients := 'support@chilkatsoft.com, matt@chilkatsoft.com';
success := mailman.SendMime(fromAddr,recipients,signedMime);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
  end
else
  begin
    //  The LastErrorText property provides information
    //  even when successful.
    ShowMessage(mailman.LastErrorText);
    ShowMessage('Mail Sent!');
  end;
end;