Delete All IMAP Email

Demonstrates two ways to delete all email in a mailbox on an IMAP server.

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

#  Turn on session logging:
imap.put_KeepSessionLog(true)

#  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.RubyMail")
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

#  Get the complete set of Uids for email in the selected mailbox.
messageSet = imap.GetAllUids()
if (messageSet == nil )
    print imap.lastErrorText() + "\n"
    exit
end

#  Set the Deleted flag for each message.
#  (ExpungeAndClose must be called to finalize the delete.)
success = imap.SetFlags(messageSet,"Deleted",1)
if (success != true)
    print imap.lastErrorText() + "\n"
    exit
end

#  Alternatively, the Deleted flag may be set for each UID
#  individiually, but this is less efficient:

n = messageSet.get_Count()
for i in 0 .. n - 1
    success = imap.SetFlag(messageSet.GetId(i),messageSet.get_HasUids(),"Deleted",1)
    if (success != true)
        print imap.lastErrorText() + "\n"
        exit
    end

end

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

#  Display the session log.
print imap.sessionLog() + "\n";

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