Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ Delphi FoxPro Java Perl Python Ruby SQL Server VBScript
|
Send S/MIME Signed and Encrypted EmailSending a signed and encrypted email is as easy as setting both the SendEncrypted and SendSigned properties. The email is signed using the private key of the sender's certificate, and encrypted using the public key of the recipient's certificate.
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.comcast.net'; // Create a new email object email := CoChilkatEmail2.Create(); email.Subject := 'This email is signed and encrypted'; email.Body := 'This is a digitally signed and encrypted mail'; email.From := 'Chilkat Support <admin@chilkatsoft.com>'; email.AddTo('TagTooga','admin@tagtooga.com'); // To send signed and encrypted email, set both // SendSigned and SendEncrypted: email.SendSigned := 1; email.SendEncrypted := 1; success := mailman.SendEmail(email); if (success <> 1) then begin ShowMessage(mailman.LastErrorText); end else begin ShowMessage('Mail Sent!'); end; end; |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.