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
(Excel) Send Signed Email using PFX File (long version)Demonstrates how to send a signed email using a digital certificate w/ private key stored in a PFX 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 Chilkat.MailMan Set mailman = Chilkat.NewMailMan ' Set the SMTP server. mailman.SmtpHost = "smtp.mymailserver.com" ' Create a new email object Dim email As Chilkat.Email Set email = Chilkat.NewEmail email.Subject = "This email is signed" email.Body = "This is a digitally signed mail" email.From = "Chilkat Admin <admin@chilkatsoft.com>" success = email.AddTo("Chilkat Support","support@chilkatsoft.com") ' Indicate that the email should be sent signed. email.SendSigned = True ' Load a PFX file into a certificate store object. ' Then locate the certificate matching the sender's email address, ' and use it for signing. ' (a PFX file may contain more than one certificate.) Dim certStore As Chilkat.CertStore Set certStore = Chilkat.NewCertStore ' The 1st argument is the path of the PFX file, the 2nd arg is the ' PFX file's password: success = certStore.LoadPfxFile("/pfx_files/chilkatsoft_secret.pfx","secret") If (success <> True) Then Debug.Print certStore.LastErrorText Exit Sub End If Set cert = certStore.FindCertBySubjectE("admin@chilkatsoft.com") If (certStore.LastMethodSuccess = False) Then Debug.Print certStore.LastErrorText Exit Sub End If ' Alternatively, if a PFX file is known to contain a single certificate, ' you may load it directly into a Chilkat certificate object. ' This snippet of source code shows how: Dim cert2 As Chilkat.Cert Set cert2 = Chilkat.NewCert ' The 1st argument is the filename, the 2nd arg is the ' PFX file's password: success = cert2.LoadPfxFile("/pfx_files/chilkatsoft_secret.pfx","secret") If (success <> True) Then Debug.Print cert2.LastErrorText Exit Sub End If ' This example will use the cert from the certStore... success = email.SetSigningCert(cert) ' Send a signed email. success = mailman.SendEmail(email) If (success <> True) Then Debug.Print mailman.LastErrorText Else ' The LastErrorText property provides information ' even when successful. Debug.Print mailman.LastErrorText Debug.Print "Mail Sent!" End If |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.