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). PowerShell

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

$success = $false

# 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.example.com")
if ($success -eq $false) {
    $($imap.LastErrorText)
    exit
}

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

# Select an IMAP mailbox
$success = $imap.SelectMailbox("Inbox")
if ($success -eq $false) {
    $($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 = New-Object Chilkat.MessageSet
$success = $imap.QueryMbx("ALL",$fetchUids,$messageSet)
if ($success -eq $false) {
    $($imap.LastErrorText)
    exit
}

# Fetch the emails into a bundle object:
$bundle = New-Object Chilkat.EmailBundle
$headersOnly = $false
$success = $imap.FetchMsgSet($headersOnly,$messageSet,$bundle)
if ($success -eq $false) {
    $($imap.LastErrorText)
    exit
}

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

# Messages can also be marked for deletion individually:
# Loop over the bundle and mark each message for deletion.
$email = New-Object Chilkat.Email
$i = 0
$numEmails = $bundle.MessageCount
while ($i -lt $numEmails) {
    $bundle.EmailAt($i,$email)

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

    $("--")

    $i = $i + 1
}

$success = $imap.ExpungeAndClose()
if ($success -eq $false) {
    $($imap.LastErrorText)
    exit
}

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