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

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

Chilkat Ruby Downloads install from rubygems.org gem install chilkat or download... Ruby Library for Windows, MacOS, Linux, Alpine Linux

require 'chilkat'

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

imap = Chilkat::CkImap.new()

# Connect to an IMAP server.
# Use TLS
imap.put_Ssl(true)
imap.put_Port(993)
success = imap.Connect("imap.someMailServer.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 is a CkMessageSet
messageSet = imap.Search("ALL",fetchUids)
if (imap.get_LastMethodSuccess() == false)
    print imap.lastErrorText() + "\n";
    exit
end

# Fetch the emails into a bundle object:

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

    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.
i = 0
numEmails = bundle.get_MessageCount()
while i < numEmails
    # email is a CkEmail
    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";

    i = i + 1
end

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

    exit
end

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