Search/Download only Encrypted Emails

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

Download Chilkat IMAP ActiveX

LOCAL loImap
LOCAL lnSuccess
LOCAL lcHeaderSearch
LOCAL loMessageSet
LOCAL lnFetchUids
LOCAL loBundle
LOCAL i
LOCAL loEmail

loImap = CreateObject('Chilkat.Imap')

*  Anything unlocks the component and begins a fully-functional 30-day trial.
lnSuccess = loImap.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Connect to an IMAP server.
lnSuccess = loImap.Connect("www.cknotes.com")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Login
lnSuccess = loImap.Login("myLogin","myPassword")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Select an IMAP mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  An S/MIME encrypted email should have a content-type
*  header containing the substring "pkcs7-mime":

lcHeaderSearch = "HEADER Content-Type pkcs7-mime"

lnFetchUids = 1
loMessageSet = loImap.Search(lcHeaderSearch,lnFetchUids)
IF (loMessageSet = NULL ) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

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

loBundle = loImap.FetchBundle(loMessageSet)
IF (loBundle = NULL ) THEN
    RELEASE loMessageSet
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Display some information from each email:

FOR i = 0 TO loBundle.MessageCount - 1

    loEmail = loBundle.GetEmail(i)

    ? loEmail.GetHeaderField("Date")
    ? loEmail.Subject
    ? loEmail.From

    ? "Received Encrypted: " + loEmail.ReceivedEncrypted
    IF (loEmail.ReceivedEncrypted = 1) THEN
        ? "Successfully Decrypted: " + loEmail.Decrypted
    ENDIF

    ? "Received Signed: " + loEmail.ReceivedSigned
    IF (loEmail.ReceivedSigned = 1) THEN
        ? "Signature Verified: " + loEmail.SignaturesValid
    ENDIF

    ? "--"

    RELEASE loEmail
NEXT

*  Disconnect from the IMAP server.
loImap.Disconnect()

RELEASE loMessageSet
RELEASE loBundle