PowerShell

Delete All IMAP Email

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

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

$success = $false

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

$imap = New-Object Chilkat.Imap

# Turn on session logging:
$imap.KeepSessionLog = $true

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

# Get the complete set of Uids for email in the selected mailbox.
$messageSet = New-Object Chilkat.MessageSet
$success = $imap.QueryMbx("ALL",$true,$messageSet)
if ($success -eq $false) {
    $($imap.LastErrorText)
    exit
}

# Set the Deleted flag for each message.
# (ExpungeAndClose must be called to finalize the delete.)
$success = $imap.SetFlags($messageSet,"Deleted",1)
if ($success -eq $false) {
    $($imap.LastErrorText)
    exit
}

# Alternatively, the Deleted flag may be set for each UID
# individiually, but this is less efficient:
$i = 0
$n = $messageSet.Count
while ($i -lt $n) {
    $success = $imap.SetFlag($messageSet.GetId($i),$messageSet.HasUids,"Deleted",1)
    if ($success -eq $false) {
        $($imap.LastErrorText)
        exit
    }

    $i = $i + 1
}

# Expunge and close the mailbox.
$success = $imap.ExpungeAndClose()
if ($success -eq $false) {
    $($imap.LastErrorText)
    exit
}

# Display the session log.
$($imap.SessionLog)

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