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) 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. loMailman = createobject("CkMailMan") // Set the SMTP server. loMailman.SmtpHost = "smtp.mymailserver.com" // Create a new email object loEmail = createobject("CkEmail") loEmail.Subject = "This email is signed" loEmail.Body = "This is a digitally signed mail" loEmail.From = "Chilkat Admin <admin@chilkatsoft.com>" llSuccess = loEmail.AddTo("Chilkat Support","support@chilkatsoft.com") // Indicate that the email should be sent signed. loEmail.SendSigned = .T. // 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.) loCertStore = createobject("CkCertStore") // The 1st argument is the path of the PFX file, the 2nd arg is the // PFX file's password: llSuccess = loCertStore.LoadPfxFile("/pfx_files/chilkatsoft_secret.pfx","secret") if (llSuccess <> .T.) then ? loCertStore.LastErrorText release loMailman release loEmail release loCertStore return endif loCert = loCertStore.FindCertBySubjectE("admin@chilkatsoft.com") if (loCertStore.LastMethodSuccess = .F.) then ? loCertStore.LastErrorText release loMailman release loEmail release loCertStore return endif // 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: loCert2 = createobject("CkCert") // The 1st argument is the filename, the 2nd arg is the // PFX file's password: llSuccess = loCert2.LoadPfxFile("/pfx_files/chilkatsoft_secret.pfx","secret") if (llSuccess <> .T.) then ? loCert2.LastErrorText release loCert release loMailman release loEmail release loCertStore release loCert2 return endif // This example will use the cert from the certStore... llSuccess = loEmail.SetSigningCert(loCert) // Signed email can be sent in two different ways. // In a multipart/signed email, the signature is attached as a separate MIME part. // In an opaque email (signedData) the content of the email is encapsulated within the signature // and the email is sent as "application/pkcs7-mime". // Either should be fine, but some receiving systems might require one or the other.. loMailman.OpaqueSigning = .F. // Send a signed email. llSuccess = loMailman.SendEmail(loEmail) if (llSuccess <> .T.) then ? loMailman.LastErrorText else // The LastErrorText property provides information // even when successful. ? loMailman.LastErrorText ? "Mail Sent!" endif release loCert release loMailman release loEmail release loCertStore release loCert2 |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.