(Ruby) IMAP Delete Old Email (before a specified date)

Demonstrates how to delete email older than a particular date.

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)
# Use your IMAP server domain.  This example 
success = imap.Connect("my-imap-server-domain.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

# Get message ID's for emails older than 1/1/2018

fetchUids = true
# messageSet is a CkMessageSet
messageSet = imap.Search("SENTBEFORE 01-Jan-2018",fetchUids)
if (imap.get_LastMethodSuccess() == false)
    print imap.lastErrorText() + "\n";
    exit
end

# If desired, we can examine the Subject of each email to be deleted..
i = 0
count = messageSet.get_Count()
while i < count
    # email is a CkEmail
    email = imap.FetchSingleHeader(messageSet.GetId(i),true)
    if (imap.get_LastMethodSuccess() == true)
        print email.subject() + "\n";

    end

    i = i + 1
end

# Set the Deleted flag for each message:
success = imap.SetFlags(messageSet,"Deleted",1)
if (success != true)
    print imap.lastErrorText() + "\n";

    exit
end

# Expunge and close the mailbox.
success = imap.ExpungeAndClose()
if (success != true)
    print imap.lastErrorText() + "\n";

    exit
end

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