Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
Send Email with Progress Monitoring Event Callbacks
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;
|
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.