Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(VB.NET UWP/WinRT) Sending S/MIME Encrypted EmailSends an encrypted email using the recipient's digital certificate from a .cer file.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' The mailman object is used for sending and receiving email. Dim mailman As New Chilkat.MailMan ' Set the SMTP server. mailman.SmtpHost = "smtp.comcast.net" ' Load the .cer file into a certificate object. ' When sending S/MIME encrypted email, it is the recipient's ' certificate that is used for encryption. Only the public key ' is needed to encrypt. The recipient is the only ' one possessing the private key, and therefore is the only ' one able to decrypt. Dim cert As New Chilkat.Cert Dim success As Boolean = cert.LoadFromFile("cknotes.cer") If (success <> True) Then Debug.WriteLine(cert.LastErrorText) Exit Sub End If ' Create a new email object Dim email As New Chilkat.Email email.Subject = "This email is encrypted" email.Body = "This is a digitally encrypted mail" email.From = "Chilkat Support <support@chilkatsoft.com>" success = email.AddTo("Chilkat Blog","admin@cknotes.com") ' Indicate that the email is to be sent encrypted. email.SendEncrypted = True ' Specify the certificate to be used for encryption. success = email.SetEncryptCert(cert) success = Await mailman.SendEmailAsync(email) If (success <> True) Then Debug.WriteLine(mailman.LastErrorText) Else Debug.WriteLine("Mail Sent!") End If |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.