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
(Xojo Plugin) POP3 Read S/MIME Encrypted EmailRead S/MIME encrypted email.
// This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // The mailman object is used for receiving (POP3) // and sending (SMTP) email. Dim mailman As New Chilkat.MailMan // Set the POP3 server's hostname mailman.MailHost = "pop.someMailServer.com" // Set the POP3 login/password. mailman.PopUsername = "myLogin" mailman.PopPassword = "myPassword" // If running on Microsoft Windows, the Chilkat mailman // will automatically search the registry-based certificate stores // for matching certificates and private keys required for // decryption. However, on Linux, MAX OS X, and other // operating systems, no such thing exists. Therefore, you'll // need to specify one or more PFX (.p12 / .pfx) files as // sources for locating the certs required for decyrption. Dim success As Boolean success = mailman.AddPfxSourceFile("/pfxFiles/certs_and_keys_1.pfx","pfxPassword1") If (success <> True) Then System.DebugLog(mailman.LastErrorText) Return End If success = mailman.AddPfxSourceFile("/pfxFiles/certs_and_keys_2.pfx","pfxPassword2") If (success <> True) Then System.DebugLog(mailman.LastErrorText) Return End If // ... // Note: On MS Windows, it is not required to provide PFX sources // if the needed certs and private keys are already installed // on the system (in the registry-based certificate stores). // Copy the all email from the user's POP3 mailbox // into a bundle object. The email remains on the server. Dim bundle As Chilkat.EmailBundle bundle = mailman.CopyMail() If (mailman.LastMethodSuccess = False) Then System.DebugLog(mailman.LastErrorText) Return End If // S/MIME security envelopes are automatically "unwrapped" // when a message is retrieved from the server. Signed emails are automatically verified, and // encrypted emails are automatically decrypted, restoring the email to the original state before // signing and/or encrypting. Information about the signing and encrypting certificates can be // retrieved from the Email object (methods: GetSignedByCert, GetEncryptedByCert; // properties: SignedBy, EncryptedBy, SignaturesValid, Decrypted, ReceivedSigned, // ReceivedEncrypted). // Loop over the bundle, Dim i As Int32 i = 0 While i < bundle.MessageCount Dim email As Chilkat.Email email = bundle.GetEmail(i) System.DebugLog(email.From) System.DebugLog(email.Subject) // At this point, if the email was signed and/or encrypted, it is already "unwrapped", i.e. // the email is already decrypted and in a state as if it were never signed or encrypted. // You may check to see if the email was received encrypted or signed, and if so, // whether it was successfully unwrapped and who signed or encrypted it: If (email.ReceivedEncrypted = True) Then System.DebugLog("This email was encrypted when received.") If (email.Decrypted = True) Then System.DebugLog("This email was successfully decrypted. It was encrypted by:") System.DebugLog(email.EncryptedBy) Else System.DebugLog("This email was not decrypted.") End If End If If (email.ReceivedSigned = True) Then System.DebugLog("This email was signed when received.") If (email.SignaturesValid = True) Then System.DebugLog("The signature was verified. It was signed by:") System.DebugLog(email.SignedBy) Else System.DebugLog("The signature verification failed.") End If End If // The email's body, HTML body, attachments, etc. // are decrypted and available just like any non-encrypted email. System.DebugLog("--") i = i + 1 Wend |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.