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

Demonstrates how to delete email older than a particular date.

Chilkat .NET Downloads Chilkat .NET Assemblies

Add-Type -Path "C:\chilkat\ChilkatDotNet47-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
# Use your IMAP server domain.  This example 
$success = $imap.Connect("my-imap-server-domain.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
}

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

$fetchUids = $true
$messageSet = $imap.Search("SENTBEFORE 01-Jan-2018",$fetchUids)
if ($imap.LastMethodSuccess -eq $false) {
    $($imap.LastErrorText)
    exit
}

# If desired, we can examine the Subject of each email to be deleted..
$i = 0
$count = $messageSet.Count
while ($i -lt $count) {
    $email = $imap.FetchSingleHeader($messageSet.GetId($i),$true)
    if ($imap.LastMethodSuccess -eq $true) {
        $($email.Subject)

    }

    $i = $i + 1
}

# Set the Deleted flag for each message:
$success = $imap.SetFlags($messageSet,"Deleted",1)
if ($success -ne $true) {
    $($imap.LastErrorText)

    exit
}

# Expunge and close the mailbox.
$success = $imap.ExpungeAndClose()
if ($success -ne $true) {
    $($imap.LastErrorText)

    exit
}

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