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
Send S/MIME Encrypted EmailSend encrypted email using the digital certificate of the recipient. To successfully encrypt, the recipient's certificate must be installed or available from a .cer file or elsewhere (such as LDAP, a database, etc.). Only the public key is required to encrypt an email. The private key is not necessary. (The private key is necessary for decryption. Thus, when an encrypted email is sent, only the recipient may decrypt because only the recipient holds the private key.)
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' The mailman object is used for sending and receiving email. set mailman = Server.CreateObject("Chilkat_9_5_0.MailMan") ' Any string argument automatically begins the 30-day trial. success = mailman.UnlockComponent("30-day trial") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode("Component unlock failed") & "</pre>" End If ' Set the SMTP server. mailman.SmtpHost = "smtp.comcast.net" ' Create a new email object set email = Server.CreateObject("Chilkat_9_5_0.Email") email.Subject = "This email is encrypted" email.Body = "This is a digitally encrypted mail" email.From = "Chilkat Support <support@chilkatsoft.com>" email.AddTo "Test Email","test@testemail.net" ' In this example, we've already installed the certificate for "test@testemail.net" ' in the current user's personal certificate store. ' If the email.SendEncrypted property is set, Chilkat will ' automatically search for and use the first non-expired certificate ' matching the recipient's email address. Chilkat searches ' the Current User's Personal certificate store, as well ' as the Local Machine's Personal certificate store. ' Run certmgr.msc to view the certs in the Current User's ' certificate store. email.SendEncrypted = 1 success = mailman.SendEmail(email) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(mailman.LastErrorText) & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode("Mail Sent!") & "</pre>" End If %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.