Search/Download only Encrypted Emails

Searching an IMAP mailbox for emails that are encrypted and download. Emails are automatically decrypted.

Download Chilkat Ruby Library

require 'chilkat'

imap = Chilkat::CkImap.new()

#  Anything unlocks the component and begins a fully-functional 30-day trial.
success = imap.UnlockComponent("Anything for 30-day trial")
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

#  Connect to an IMAP server.
success = imap.Connect("www.cknotes.com")
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

#  Login
success = imap.Login("myLogin","myPassword")
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

#  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

#  An S/MIME encrypted email should have a content-type
#  header containing the substring "pkcs7-mime":
headerSearch = "HEADER Content-Type pkcs7-mime"

fetchUids = true
# messageSet is a CkMessageSet
messageSet = imap.Search(headerSearch,fetchUids)
if (messageSet == nil )
    print imap.lastErrorText() + "\n"
    exit
end

#  Download the emails indicated in the messageSet.
#  The emails are automatically decrypted.

# bundle is a CkEmailBundle
bundle = imap.FetchBundle(messageSet)
if (bundle == nil )

    print imap.lastErrorText() + "\n"
    exit
end

#  Display some information from each email:

for i in 0 .. bundle.get_MessageCount() - 1

    # email is a CkEmail
    email = bundle.GetEmail(i)

    print email.getHeaderField("Date") + "\n";
    print email.subject() + "\n";
    print email.ck_from() + "\n";

    print "Received Encrypted: " + email.get_ReceivedEncrypted() + "\n";
    if (email.get_ReceivedEncrypted() == true)
        print "Successfully Decrypted: " + email.get_Decrypted() + "\n";
    end

    print "Received Signed: " + email.get_ReceivedSigned() + "\n";
    if (email.get_ReceivedSigned() == true)
        print "Signature Verified: " + email.get_SignaturesValid() + "\n";
    end

    print "--" + "\n";

end

#  Disconnect from the IMAP server.
imap.Disconnect()