|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
Search/Download only Encrypted Emails
Searching an IMAP mailbox for emails that are encrypted and download. Emails are automatically decrypted.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set imap = Server.CreateObject("Chilkat.Imap") ' Anything unlocks the component and begins a fully-functional 30-day trial. success = imap.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Connect to an IMAP server. success = imap.Connect("www.cknotes.com") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Login success = imap.Login("myLogin","myPassword") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' An S/MIME encrypted email should have a content-type ' header containing the substring "pkcs7-mime": headerSearch = "HEADER Content-Type pkcs7-mime" fetchUids = 1 ' messageSet is a Chilkat.MessageSet Set messageSet = imap.Search(headerSearch,fetchUids) If (messageSet Is Nothing ) Then Response.Write imap.LastErrorText & "<br>" End If ' Download the emails indicated in the messageSet. ' The emails are automatically decrypted. ' bundle is a Chilkat.EmailBundle2 Set bundle = imap.FetchBundle(messageSet) If (bundle Is Nothing ) Then Response.Write imap.LastErrorText & "<br>" End If ' Display some information from each email: For i = 0 To bundle.MessageCount - 1 ' email is a Chilkat.Email2 Set email = bundle.GetEmail(i) Response.Write Server.HTMLEncode( email.GetHeaderField("Date")) & "<br>" Response.Write Server.HTMLEncode( email.Subject) & "<br>" Response.Write Server.HTMLEncode( email.From) & "<br>" Response.Write Server.HTMLEncode( "Received Encrypted: " _ & email.ReceivedEncrypted) & "<br>" If (email.ReceivedEncrypted = 1) Then Response.Write Server.HTMLEncode( "Successfully Decrypted: " _ & email.Decrypted) & "<br>" End If Response.Write Server.HTMLEncode( "Received Signed: " _ & email.ReceivedSigned) & "<br>" If (email.ReceivedSigned = 1) Then Response.Write Server.HTMLEncode( "Signature Verified: " _ & email.SignaturesValid) & "<br>" End If Response.Write Server.HTMLEncode( "--") & "<br>" Next ' Disconnect from the IMAP server. imap.Disconnect %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
