Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Lianja) Find Certificate for Email EncryptionDemonstrates finding the recipient's certificate in the Windows certificate store and using it to send encrypted email.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loMailman = createobject("CkMailMan") // Set the SMTP server. loMailman.SmtpHost = "smtp.example.com" // Create a new email object loEmail = createobject("CkEmail") loEmail.Subject = "This email is encrypted" loEmail.Body = "This is a digitally encrypted mail" loEmail.From = "Joe <joe@example.com>" // Emails are encrypted using the recipient's certificate. lcRecipientEmailAddr = "jane@example2.com" loEmail.AddTo("Jane",lcRecipientEmailAddr) // Indicate that the email is to be sent encrypted. loEmail.SendEncrypted = .T. // This example demonstrates finding the email encryption certificate // on a Windows system where the certificate is stored in the Windows // certificate store. loCert = createobject("CkCert") // The recipient's certificate is used to encrypt. // (Because the recipient is the only one in possession of the private key to decrypt.) llSuccess = loCert.LoadByEmailAddress(lcRecipientEmailAddr) if (llSuccess <> .T.) then ? loCert.LastErrorText release loMailman release loEmail release loCert return endif // Specify the certificate to be used for encryption. llSuccess = loEmail.SetEncryptCert(loCert) llSuccess = loMailman.SendEmail(loEmail) if (llSuccess <> .T.) then ? loMailman.LastErrorText else ? "Encrypted Mail Sent!" endif release loMailman release loEmail release loCert |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.