Send Email with Progress Monitoring Event Callbacks

Download Chilkat Email ActiveX

Delphi source code example to send email with progress monitoring events.

procedure TForm1.Button1Click(Sender: TObject);
var
  email: IChilkatEmail2;
  ok: Integer;

begin
  // A ChilkatMailMan2 ActiveX component was dropped onto the Delphi
  // form, and this became the Form's member variable "ChilkatMailMan21".

  ChilkatMailMan21.UnlockComponent('Anything for 30-day trial');
  ChilkatMailMan21.SmtpHost := 'smtp.comcast.net';

  email := ChilkatMailMan21.NewEmail();
  email.Subject := 'Email sent from a Delphi program!';
  email.From := 'Chilkat Support <support@chilkatsoft.com>';
  email.AddTo('Chilkat Admin','admin@chilkatsoft.com');
  email.Body := 'This email was mailed from a Delphi program...';

  ok := ChilkatMailMan21.SendEmail(email);
  if (ok = 0) then
        ChilkatMailMan21.SaveLastError('errorLog.xml');

end;

// Delphi created this method for us, and we simply added the one line
// of code in the method body.  To generate the event callback procedure,
// click on the ChilkatMailMan2 object on your Form.  Then click on the
// "Events" tab (which is to the right of the Properties tab) and finally
// double-click on the blank dropdown for OnSendPercentDone.
procedure TForm1.ChilkatMailMan21SendPercentDone(ASender: TObject;
  percentDone: Integer; out abort: Integer);
begin
  ProgressBar1.Position := percentDone;
end;