(Perl) 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 Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use 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(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.someMailServer.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Login
$success = $imap->Login("myLogin","myPassword");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# We can choose to fetch UIDs or sequence numbers.
$fetchUids = 1;
# Get the message IDs of all the emails in the mailbox
# messageSet is a MessageSet
$messageSet = $imap->Search("ALL",$fetchUids);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Fetch the emails into a bundle object:

# bundle is a EmailBundle
$bundle = $imap->FetchBundle($messageSet);
if ($imap->get_LastMethodSuccess() == 0) {

    print $imap->lastErrorText() . "\r\n";
    exit;
}

# To mark a complete set of emails for deletion, call SetFlags:
$success = $imap->SetFlags($messageSet,"Deleted",1);
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# 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 Email
    $email = $bundle->GetEmail($i);
    print $email->ck_from() . "\r\n";
    print $email->subject() . "\r\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 != 1) {
        print $imap->lastErrorText() . "\r\n";
        exit;
    }

    print "--" . "\r\n";

    $i = $i + 1;
}

$success = $imap->ExpungeAndClose();
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";

    exit;
}

# Disconnect from the IMAP server.
$success = $imap->Disconnect();