(PowerShell) 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 .NET Downloads Chilkat .NET Assemblies

Add-Type -Path "C:\chilkat\ChilkatDotNet47-9.5.0-x64\ChilkatDotNet47.dll"

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

$imap = New-Object Chilkat.Imap

# Connect to an IMAP server.
# Use TLS
$imap.Ssl = $true
$imap.Port = 993
$success = $imap.Connect("imap.someMailServer.com")
if ($success -ne $true) {
    $($imap.LastErrorText)
    exit
}

# Login
$success = $imap.Login("myLogin","myPassword")
if ($success -ne $true) {
    $($imap.LastErrorText)
    exit
}

# Select an IMAP mailbox
$success = $imap.SelectMailbox("Inbox")
if ($success -ne $true) {
    $($imap.LastErrorText)
    exit
}

# 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 ($imap.LastMethodSuccess -eq $false) {
    $($imap.LastErrorText)
    exit
}

# Fetch the emails into a bundle object:

$bundle = $imap.FetchBundle($messageSet)
if ($imap.LastMethodSuccess -eq $false) {

    $($imap.LastErrorText)
    exit
}

# To mark a complete set of emails for deletion, call SetFlags:
$success = $imap.SetFlags($messageSet,"Deleted",1)
if ($success -ne $true) {
    $($imap.LastErrorText)
    exit
}

# Messages can also be marked for deletion individually:
# Loop over the bundle and mark each message for deletion.
$i = 0
$numEmails = $bundle.MessageCount
while ($i -lt $numEmails) {
    $email = $bundle.GetEmail($i)
    $($email.From)
    $($email.Subject)

    # 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 -ne $true) {
        $($imap.LastErrorText)
        exit
    }

    $("--")

    $i = $i + 1
}

$success = $imap.ExpungeAndClose()
if ($success -ne $true) {
    $($imap.LastErrorText)

    exit
}

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