(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim imap As New Chilkat.Imap

// Connect to an IMAP server.
// Use TLS
imap.Ssl = True
imap.Port = 993
Dim success As Boolean
success = imap.Connect("imap.someMailServer.com")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Login
success = imap.Login("myLogin","myPassword")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

Dim messageSet As Chilkat.MessageSet
// We can choose to fetch UIDs or sequence numbers.
Dim fetchUids As Boolean
fetchUids = True
// Get the message IDs of all the emails in the mailbox
messageSet = imap.Search("ALL",fetchUids)
If (imap.LastMethodSuccess = False) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Fetch the emails into a bundle object:
Dim bundle As Chilkat.EmailBundle
bundle = imap.FetchBundle(messageSet)
If (imap.LastMethodSuccess = False) Then

    System.DebugLog(imap.LastErrorText)
    Return
End If

// To mark a complete set of emails for deletion, call SetFlags:
success = imap.SetFlags(messageSet,"Deleted",1)
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Messages can also be marked for deletion individually:
// Loop over the bundle and mark each message for deletion.
Dim i As Int32
i = 0
Dim numEmails As Int32
numEmails = bundle.MessageCount
While i < numEmails
    Dim email As Chilkat.Email
    email = bundle.GetEmail(i)
    System.DebugLog(email.From)
    System.DebugLog(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 <> True) Then
        System.DebugLog(imap.LastErrorText)
        Return
    End If

    System.DebugLog("--")

    i = i + 1
Wend

success = imap.ExpungeAndClose()
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)

    Return
End If

// Disconnect from the IMAP server.
success = imap.Disconnect()