Delete Email Individually (One at a time) from an IMAP Mailbox

Downloads email from an IMAP mailbox and deletes emails individually (one by one).

Downloads for Windows/Linux and Install Instructions

require 'rubygems'
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("mail.chilkatsoft.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

#  We can choose to fetch UIDs or sequence numbers.
fetchUids = true
#  Get the message IDs of all the emails in the mailbox
messageSet = imap.Search("ALL",fetchUids)
if (messageSet == nil )
    print imap.lastErrorText() + "\n"
    exit
end

#  Fetch the emails into a bundle object:

bundle = imap.FetchBundle(messageSet)
if (bundle == nil )

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

#  To mark a complete set of emails for deletion, call SetFlags:
success = imap.SetFlags(messageSet,"Deleted",1)
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

#  Messages can also be marked for deletion individually:
#  Loop over the bundle and mark each message for deletion.

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

    email = bundle.GetEmail(i)
    print email.ck_from() + "\n";
    print email.subject() + "\n";

    #  To delete this email, set the "Deleted" flag to 1.
    #  The email is not actually deleted until Expunge or
    #  ExpungeAndClose is called.
    success = imap.SetMailFlag(email,"Deleted",1)
    if (success != true)
        print imap.lastErrorText() + "\n"
        exit
    end

    print "--" + "\n";

end

success = imap.ExpungeAndClose()
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

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